wos, 


LABEL. QO0000000LINE OOL77U6E9PCOMPILE LOGAN/DISK TSPOL LIBRARY 


BURROUGHS B#5700 TSPOL COMPILER MARK Xvy,0,00 THURSDAYs 03/10/775 41%11 AM, 
yt LOGAN /DISK 

KREZSEALLKLL AL EL EL ULALVEG ELA LLY LL ALLL LUE BLE LL SELLA VY ELLY, 00001100 
@ B5500 TSSYS LoG ANALYZER XVe?,00 10/03/73 00001200 
ERZZBLALKLALE LSA YALL AAU LEL LE LY RL EL ULL ELELYL YE LELELY LLY 00001300 
COMMENT$ THIS MATERIAL 1S PROPRIETARY TO BURROUGHS 00001310 
CORPORATION AND IS NOT TO BE REPRODUCEDs USED 00001311 
OR DISCLOSED EXCEPT IN ACCORDANCE WITH PROGRAM 00001312 
LICENSE OR UPON WRITTEN AUTHORIZATION OF THE 00001313 
PATENT DIVISION OF BURROUGHS CORPORATION>s 00001314 
DETROIT» MICHIGAN 48232, 00001315 
; 00001316 
COPYRIGHT (C) 1968, 1971,» 1972 00001317 
BURROUGHS CORPORATION DETROIT» MICHIGAN 00001318 
AA325003 00001319 
BEGIN 00061400 
START OF SEGMENT 
% SECTION 01 = DEFINES 00001500 
% SECTION 02 = GLOBALS 00001600 
% SECTION 03 = UTILITY PROCENURESsSCANNER*ETC, 00004700 
7 SECTION O04 = SNAP REPORT PROCEDURES 00001800 
¥ SECTION 05 = ONSITE REPORTER 00001900 
6 SECTION 06 = DISK LOGGING REPORTER 00002000 
% SECTION O7 = PARAMETER PROCESSING» INPUT SETUP 00002100 
% SECTION 06 = INITIALIZATION*® OUTER BLOCK 00002200 
BLAS DESY LLLLEREASLEEELEBLELLELYSUE ELE LL ES LE VLELLELELEL LYLE LEY 00002300 
COMMENT #3233 SECTION 01 = DEFINES ssees3 00002400 
BLLLOBSLELEACLELE VELL SLA SLE ELY LYE LLY EYEE ELEY LYELL LY LY LYALL EY 00002500 
COMMENT DEFINES For THE VARIOUS LOG RECD TYPES; 00002600 
DEFINE Bou = 2H» 00002700 
E0J = 3H 00002800 
PBEOJ = bie 00002900 
OPEN = 5H» 00003000 
CLOSEF = 64» 00003100 
HALT = 7H» 00003200 
EQUSTAT = Bie 00003300 
CLSSTAT = One 00003400 
ON =1{O#s 00003500 
OFF zit» 00003600 
CHARGE =1 2H» 00003700 
DLOG =13%» 00003800 
DATEMESS =14#s 00003900 
TIMEMESS = 154, 00004000 
ERRORMSG = 17# : 00004010 
1% 00004400 
COMMENT DFFINES FOR FIRST WORD OF LOG RECDS3 00004200 
DEF TNE MIXF = (pt5y#, 00004300 
RLF = (F411) s 00004400 
LINEF = [8°8]#, 00004500 


TSPOL 


ARMA AAO VHA HAR HR HH AHH HTH A st st Yt tT Ht 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


ROR 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
000Q 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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} 


ad 


TYPEF = [1637]#, 
So ceesioey oem Ss : SPOF = [23+1)#, 
TIMEF = [25323] 43 
COMMENT DEFINE REPORT NOS,3% 
Be ees DEFINE ONSITE = Oks 
USERPT = 2s 
DYSKRPT = 143% 
ete etacsh nod COMMFNT LEVEL NAMES3% 
DEF TNE SESSION = Lie 
USER mn Pk» 
REPORT = 3%» 
PROGRAM = O32 
COMMENT ASSORTED DEFINES? 
DEFINE UPS] = STteSl+qH, 
UPDI = DItapl+i#, 
UPTALLY = TALLYS=TALLY+1#, 
GPU = WKNZ, 
SCAN = RESULT#=SCNCPTRePTRs ACCUM) He 
NUMBERSCAN=NUMBERSCNCPTR,PTRI#, 
NAMEV = [t> 
NUMBERV = QO#» 
PRNTS = PRNT#>, 
os ; PAGESIZE = 56#» % LINES PER PAGE 
DATEF = [9516] #» % DATE FIELD 
YEAR = 77000 #4, % THIS YEAR x 1000 
SCAN2 = SCAN; SCAN# 


DEFINE LAPSE = (LASTDATE*FIRSTDATE)X5184000 #3 
NEF INE EQUIVCEQUIV1,EQUIVo)=> 
REALCBOOLEANCEQUIV,) EQV BOOLEANCEQUIV2) )=REALCNOT FALSED#3% 
COMMENT SORT RECORD SIZES: 


DEFINE OSRECSI = 104» 
DLRECSI = 8H» 
MAXS] = [D#>» 
MIXRECS] = 1283% 


COMMENT SCRATCH FILE BLOCK SIZES; 
DEFINE OSBLKS] 3OXOSRECSI]#» 
DLBLKSI 30XDLRECST# 


ow 


1g 
COMMENT SCRATCH FILE ROW S]ZES} 


DEF TNE OSROWS] «= 1000x0SRECSI#, 
DOLROWS] ss 1000KDLRECST# 

t% 

COMMENT ARRAY S]ZES3 

DEFINE HLQS]T = 308» 
FIDQST = 10#» 
NUMLINES = 128s 
MAXPARAMS= Git» 
MIXMAX = {2#, 
NUMLINE = NUMLINES#, 
MAXKEY = dks 
MAXPARAM = MAXPARAMS#} 


Bako 5 12 BRDRRELLSLEREELLEELLRELEBALLEY ELE SLE SLE BLL LI SLY ELLA LEA EY 


COMMENT $2328 SECTION = 02 = GLOBAL DECS et32332 
BERLELELERLALLLSALSLLLEL EAL EK YEL LSE Y VE LALYE AHA HHA EAA HY GY 
BOOLEAN COMBO034 CARD/T1TY INPUT 

COMMENT GLOBAL ARRAYS33 


00004600 
00004700 
00004800 
00004900 
00005000 
00005100 
00005200 
00005300 
00005400 
00005500 
00005600 
00005700 
00005800 
00005900 
00006000 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
00006710 
00006720 
00006730 
00006800 
00006900 
00006910 
00007000 
00007400 
00007200 
00007300 
00007400 
00007500 
00007600 
00007700 
00007800 
00007900 
00008000 
00008100 
00008200 
00008300 
00008400 
00008500 
00008600 
00008700 
00008800 
00008900 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009610 
00009700 


AAA AAV AA DUCA HAHAHAHA HAH HAO NO HHA A A to 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 . 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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ARRAY LEVELARRYLO:3)>» 


DUMMYLO39]» 


LEVEL NAMES 

ON/OFF LINE 

UNTT MNEMONICS 

RUN TIME ERRORS THIS UNIT 
LINEO?16)> PRINT LINE 

ULTNELO?16)> RPTU PRINT UINE 
LLTBLELiNUMLINE + O837°% LINE INFO@USER+LOG ON TIME 
FIDLINECOIFIDQS!T DIV 9 +120346)54% FILE 1D PRNT LINES 


ONOFFARRY{CLOsS1i J» 
UNITCAt3il> 
RTELLE3i]e 


Be a S 2W BL MX 


LINEARRYCOSNUMLINE],% ACCUM LINE USAGE 
MIXARRYLOSMIXMAX]>» % JOBS IN MIX 
HOLDKEYLCOSMAXKEY]» % SORT KEY SAVE AREA 
PARAWDSCOSMAXPARAMI,2 OPTIONS 

DAYSING£OsLI I)» % DAYS IN MONTH 

FIN@LOFIDASI I» 4 QUEUE OF FILES TO PROCESS 
PSTOTALS(Ot4];5 2 RPT PST TOTSsLOCAL AND REMOTE 
TOTOTALS(Oi4], % RPT [OT TOTSsLOCAL AND REMOTE 
ETOTALSLCOt1 1+ ® RPT ET TOTS*LOCAL AND REMOTE 
MERGEINPUTCO!?7]> & MERGE INPUT RECORD 
CPLRNMLO?:9]>» % COMPILER NAMES 

COMPILSC 1:97» % NUMBER OF COMPILATIONS 

USED FOR CLEANER 


ASTERISK([0:31; 2 ASTERISKS 


INTEGER ARRAY HLQCOSHLQSI I> % QUEUE OF H/L TIMES 


HLDATELLSHLQST I; %~ DATES OF H/L S 


SAVE ARRAY LOGRECLOEMAXSII3 % WORK RECORD 
ARRAY MIXTBLELEMIXMAX, 089454 
COMMENT REAL GLOBALS(SICI+% 


REA, 
REAL 


REAL 
REAL 


UCT» 
UTT> 
RCTs 
RTT, 


GT42GTasGT3»GTa3 
GT5eGT6rGT7»GTB» 
GT99GT102GT1{19GT12°% 
GT13*GTj4-GT1i5; 
GT1L6°GTI7eGTLB+GT1I93% 
DAY » & 'MON*s"TUES™*ETCe 
DATEL*DATE2* DATES & MM/DD/YY 

% USER CANDE TIME 

% USER TERMYNAL TIME 

% REPORT CANDE TIME 

% REPORT TERMINAL TIME 
TSESSIONSs ZTERMINAL SESSIONS 
PACKETS» % BATCH PACKETS 


2 GLOBAL TEMPORARIES 


4 MORE OF THE SAME 


MF ID» 2 LOG FILEID 

MERGEID> %® MERGE FILE ID 

PTR» 2 SCAN POINTER 

PTRBASE » 2 ADDR OF WORK RECORD 
RESULT» VALUE RETUREN BY SCANNER 
ACCUM * SCANNER STUFF WORD 


CONMENT GLOBAL |NTEGERS FOR ASSORTED PURPOSES} 


INTEGER HLPs 


& INDEX INTO HLO@ 
FIDP. %& INDEX INT FIDO 
PAGENOs % REPORT PAGE NUMBER 
OSJOBS» NO» OF ONSITE JOBS 
TUJOBS e 4 NOe OF TERMINAL JOBS 
UPAGENQO»s 4 RPTU PAGE NUMBER 
LINECTRe %® REPORT PAGE LINE COUNTER 
ULINECTRe 2 RPTU LINE COUNTER 
NFIDLINES. % NO OF FILE 1D PRNT LINES 


00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00040400 
00010500 
00010600 
00010700 
00010710 
00010800 
00010900 
00011000 
00011100 
00011200 
00014300 
00014400 
00011500 
00011510 
00011520 
00011530 
000116006 
00011610 
00011620 
00011700 
00011800 
00044900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
00012610 
00012620 
00012630 
00012640 
00012650 
00012660 
00013100 
00013200 
00013300 
00013400 
00013500 
00013600 
00013700 
00013800 
0001413900 
00044000 
00044100 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 


AA AHH AM HHA THA HH HA AH AHO ONO HAHA AHH AHH HOO HON NA AAA BAA AH HO HVAT HHA 


0000 
0002 
0003 
0005 
0007 
0009 
0010 
0012 
0016 
0016 
0018 
0020 
0022 
0023 
0025 
0027 
0029 
0030 
0032 
0034 
0036 
0037 
0039 
0041 
0043 
0044 
0046 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
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REMUSERS>, NO OR REMOTE USERS 


% 

REMUSE, & 41 FF THIS USER RAN A REM JOB 

OSUSERS» 2 NO OF ONSITE USERS 

OSUSE» 41 IfF THIS USER RAN AN OS JOB 

NL? %’ NO OF LINES IN USE 

MN» NOs OF JOBS IN MIX 

COMLINES: 4 NO OF LINES W/ NO LON OR OFF 
FIRSTDATE® ®’ FIRST DATE SEEN IN LOG 
LASTDATEs 2 LAST DATE SEEN IN LOG 

RBEGINTIME, % EARLIEST TIME FOUND IN LOG 

LASTIME3 % AS ABOVEsLATEST 


COMMENT GLOBAL BOOLEANS,MOSTLy REPORT OPTYON TOGS3 


BOOLEAN TERMINALTOG, % TU SUMMARY RPT OUTPUT 
ONSITETOG? & ONSITE SUMMARY OUTPUT 
DISKTOG»s 4 DISK LOG SUMMARY OUTPUT 
HLTOG» & H/L ANALYSIS 
LINETOGs ®’ LINE ANALYSISI 
MERGETOG® 4 MERGED INPUT 
MERGEND*s 4 NO MORE MERGE INPUT 
SUMTOG>s &® SUMMARY OUTPUT 
CLEANER» % SORT RELEASE TOG 

DETOG. % PRINT DETAILS AD NAUSEUM 
HLING» % CLEANING AFTER A H/L 
ERRTOG % DEVICE ERRORS ANALYSIS 


1% 
COMMENT FILE DECLARATIONS} 
FILE IN DISK DISK SERTALC2910*300)» 
MERGEFILE DISK SERIALC2-+0SRECSI*O0SBLKSI)» 
PRNT 1602047)» 
UPRNT 16(2017)¢ 
TWX 1901210) 
:% 
SAVE FILE OUT SUMFILE DISK SERIALI20:0SROWST J 
"USER™ "TSS*LOG”™ C2,0SRECS{sOSBLKS]»SAVE 10932 
COMMENT SUMFILE GETS CONTENTS OF MERGE FILE,» PLUS SUMMARY? 
SERLERALSXLALESLLSHRLARLAL SELLY LY LSEF LAY ELSHLEL EK LL ALY LY YALE 
COMMENT ses: SECTION = 03 = UTILITY PROCEDURES3 
BALLZELUSBALSLBSLEASAA TEAL ASL YL LEA SALAH FLESLY LLL LASALAL ALY 
ZOO ORO OGIO IOI OR IGOR GRIGIO GIGI IO IGIG IOI I SOI OR ICH aE ae ak a ae 
REAL STREAM PROCEDURE GETABSADDRCWD)3 
OR OR CR ORO OK kk II RK IGOR I a kkk aOR i ok ak aka ka de ok 
BEGIN 
DptsWNs GETABSADDRixD[3y 
END GETABSADOR?¢ 


BR CFG CR ROO CORO GR OI IGRI GI UIGIGIGIOIG A SII AO 92k kG aK ak ake ake ag ae 
REAL STREAM PROCEDURE DECVC(Nap);33% 

VALUE NeP3a 
ZOO OG OGIO GRR OIG RIO IOI GIO AG I a a IOI kako ac 
BEGIN SysslL0c¢ Ps pys=L0c pecvs% 

DItsDy+Os NpPIs=Hr7Ns ODSS=N DECI 
END DECVs% 


00014800 
00014900 
00015000 
00015100 
00015200 
00015210 
00015300 
00015310 
00015311 
00015400 
00015500 
00015600 
00015700 
00015800 
00015900 
00016000 
00016100 
00016200 
00016300 
00016400 
00016500 
00016510 
00016520 
00046600 
00016700 
00016800 
00016900 
00017000 
00017100 
00017200 
00017300 
00017400 
00017500 
00017600 
00017610 
00017700 
00017800 
00017900 
00018000 
00018100 
00018200 
00018300 
00018400 
00018500 


00018600 
00018700 
00018800 
00018900 
00019000 
00019100 
00019200 


AAA AAA HAA NOAA HHA AHH AHO OAS TH tN OHH OA H+ 


AAA Ha 


0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0048 
0051 
0055 
0059 
0062 
0065 
0066 
0067 
0073 
0073 
0073 
0073 
0073 
0073 
0075 
0075 
0075 
0075 


0076 
0076 
0076 
0076 
0076 
0077 
0078 
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FoR ORK OIOR IO RIO OR HOI IOI aK OK a kA aC ak a aa aK Ca ak OK ak a aK ak ok ok 2k ake oie ake fe a 
INTEGER STREAM PROCEDURE OCVCWDsP0S)3% 

VALUE POS3% 

COMMENT CONVERTS 2 DEC AT WDePOSCPOS) To ocT; 
Fok OK ROOK Ria dR OR OI OIG IG KIO ok aK KI a a ak aK a kak ako ak akc ak ak ie ak 
BEGIN Sytswos STtsS]+P0S3 

Nyt=LOc OCVs OSt= 2 OCT3 
END OCV3% 


RRR kK Ok ak ok ae kok ak ak ak ok Ok ak ako ak ok kk OKO a ok ok ak ok ak atk dk ae i ak ak ak ak ak 
INTEGER STREAM PROCEDURE SCNCPTRVePTRe ACCUM) 3% 
VALUE PTRV3% 
COMMENT RETURNS O IFF STRIENG OF ALPHA» 
RETURNS THE SPEC CHAR IFF ONE FOUND?% 
ZOCOR OR IOI TOO GI OIG GIG SCI III koa Ga ICR a A IG IOK a ak ag ak ak 
BEGIN 
StiePTRV3% 
L? IF sc = " " THEN BEGIN UPSI3 GO L ENDS 
IF SC = ALPHA THEN 
BEGIN COMMENT NAHES3 
DISSACCUMSDSS=L11"0"; DSts7 LIT " "3D1F=DI=73% 
7CDS:=CHR; IF SC =ALPHA THEN ELSE JUMP OUT)3% 
END ELSE 
BEGIN COMMENT SPEC CHAR; 
DIs=LOC SCN 3 DIt=Dl473 
DSIt=CHR34 
ENp SPEC CHAR HANDLING; 
Drs=PTRsPTRvt=Sys Syps=LOc PTRVs OStewpS3 
END SCAN?% 


ZR OOK ROKK kK OK OK ak kk kok Kia ak akoka a ok ak ak ako a ae ak ak ok ok ake 
REAL STREAM PROCEDURE NUMBERSCNCPTRVePTR) 34 

VALUE PTRV3% 

COMMENT SCANS OFF NEXT NUMBER* CONVERTS TO REAL? 
BOO I OR OOK IGOR ORO GRIGGSK IG IO IG IK ko AG Kak 
BEGIN Lapel Ls 

LOCAL A#% 

SptsPTRV3 Dyis LOC NUMBERSCN3S 
3 IF SC LSS "0 THEN BEGIN UPSIS GO L ENDS 

At=SI3 

7CUPSTSUPTALLY3 

IF sc LSS “ot THEN JUMP OUT)3 

SIlrsA3; At=TALLY3 DS:FA OCT3 

S=S1; OL:=PTRs S1sslLOC As DStEWNS34 

END NUMRERSCN34 


ORR RIO SIG GGIOIGGICIK OR GIO IGG IOI I KEG aE Ik ga OIG ak ak ak fe ak ae 


00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00019900 
00020000 


00020100 
00020200 


00020300 


00020400 
00020500 
00020600 
00020700 
00020800 
00020900 
00024000 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021800 
00021900 
00022000 
00022100 


00022200 
00022300 
00022400 
00022500 
00022600 
00022700 
00022600 
00022900 
00023000 
00023100 
00023200 
00023300 
00023400 
00023500 
00023600 


00023700 


AHA A AAS 


AHN AHHH HH AHS et 


ARH HAA aH a 


0079 
Qo79 
0079 
0079 
0079 
0079 
0080 
0081 


0082 
0082 
0082 
0082 
0082 
0082 
0082 
0083 
0083 
0083 
0085 
0086 
0086 
0088 
0091 
0091 
0091 
0091 
0092 
0092 
0093 


0094 

0094 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0096 
0096 
0097 
0099 
01090 
0101 


0102 
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BOOLEAN STREAM PROCEDURE COMPARE (N»AsBR)F% 

VALUE N3 

COMMENT RETURNS TRUE IFF ARRAY A SORTS LOWER THAN B3 
ZO OIG IO IGG I IOIOI OR GI IOI IG I IOI IE OI Ca ek 
BEGIN LABEL XIT? 

LOCAL SAeDA3S 

SITtsA3 NLI=B3 

NCUPSISUPDI} 

SArteS[s DAt=SDI3% 

IF 7 SC GTR NC THEN 

BEGIN TALLY:=03 JUMP OUT TO XIT ENDS% 

NLtsPAF SLtsSa3 

IF 7 Sc LSS 0c THEN 

BEGriN TALLY&=13 JUMP OUT TO XIT END#S 

23% FQUAL,»REPEAT 

TALLY!=4 3% 
XI T&S COMPARES =TALLY3% 
END COMPARE32 


ZOO COICO EOI OIG IG IO TOR IG UG GIORGI IO Gk Gi RAO Ia GR a ac aE ak 
ROOLFAN STREAM PROCENURE EQUALCN®A+B)3% 

VALUE NF . 

COMMENT RETURNS TRUE IFF ARRAY A&B FOR N WORDSS 
SA HOI ak AR ok aK oka kK ak a ea ROK Ne ok oka 2K oak a ako Ne ok ok a ok ake ok ake ake 
BEGIN LABEL XIT3 

SltsA; Dli= Bs% 

NCUPSISUPDTI3 

IF 7 SC NEQ DC THEN 

BEGIN TALLY:=03 JUMP OUT TO XIT END)3% 

TALLY 13413% 
XIT:EQUALSSTALLY3% 
END EQUaL;% 


3 8K BR OR IOI CORK OR OO a I IR a OK GK AG OR ROG OK I I aK aC ak ka ie ak ak ak ake ak 
STREAM PROCFONURE MOVECNs Ae Bs VALUE N3Z 

FH ie ee a ok eR RR OR ek OK Ia Kok ak a aka ok oi ok ake ook a oka ake ake 
BEGIN SrisAs DIssB?e DSt=N wOS END MOVEs& 


Bh I ORO i RK ak kK a ak iO a ok ak aie ok ak ak i aie aK aie ak 
INTEGER PROCEDURE TIMERCTI3% 
VALUE T# REAL T38 
COMMENT § TAKES BINARY TIME IN T IN 14/60 SECONDS AND 
CONVERTS AS FOLLOWS 23 
JOB TIMECT) LSS 4 MINUTES 
TIMERL12%#4217 ¢8= "OMe 
TIMEREL 24842] $= SECONDS 
TIMERE36:121 8:7 1/60 SECONDS 
JOB TIMECT) GTR 1 MINUTES 


00023800 
00023900 
00024000 
00024100 
00024200 
00024300 
00024400 
00024500 
00024600 
00024700 
00024800 
00024900 
00025000 
00025100 
00025200 
00025300 
00025400 
00025500 


00025600 
00025700 
00025800 
00025900 
00026000 
00026100 
00026200 
00026300 
00026400 


‘00026500 


00026600 
00026700 
00026800 


00026900 
00027000 
00027100 
00027200 


00027300 
00027400 
00027500 
00027600 
00027700 
00027800 
00027900 
00028000 
00028100 
00028200 


AAH HHH HA HAA HH 


AHA AAA AHH 


4444 


AA ASH A HAA 


01402 
0192 
0102 
0102 
0102 
0102 
0102 
0102 
0104 
0104 
0105 
0106 
0106 
0107 
0408 
0108 
0409 
0109 


0110 
0110 
0110 
0410 
0110 
0110 
0114 
O114 
0113 
0113 
0115 
0115 
0116 


O117 
0117 
0117 
0117 


0119 
0119 
0119 
0419 
0149 
0119 
0119 
0119 
0119 
0119 
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TIMERE 12:42] $32 HOURS 

TIMERE24312]) &:* MINUTES 

TIMFRE36%12) 335 SECONDS?S% 
7 ek ROR OR ROR OR OOK ORO AGRI RI ROK SR HOR EK ok aie ak ak ak ok 
BEGIN INTEGER HeMsSeSSe ard 


At=T3¢¥ 

Ht=A DIV 2160003 At=A MOD 2160003 

MS=A DIV 36003 At=A MOD 360033 

S:=A DIV 603 SSt=T MOD 603% 

P=NECVC3eH)33 

MtepECcVC29M)34 

St=NECVC29S)3% 

SSt=DECVC29S5S)3% 

IF CH+M)=0 THEN 

TIMER =SS&S( 243368 1218"0M"0 12336812) ELSE 

TIMER? =SRMC 248 3624218HL 12336312732 
END TIMFR3& 


JO OOOO CRG IGG IGG IOI OR OK Oia gk a a a ak kok deg aie ak 
PROCEDURE STIMERCT»WD1eND2) 32% 
VALUE T32 
INTEGER TeWnieWD23 
COMMENT CONVERTS TIMECT) AS FOLLOWS: 
WO1539212]7 t5 DD 
WN1f42:6] tem MEH 
WO2f24%12) tt = DD 
WO2£3036)] tis Me 
WD2L36%12)] tt= DD 
BRR GR RIGOR GOI TOI ICI IG OR OIG CICK RIO AC fac AC ak ak 
BEGIN 
INTEGER I 


BR ae Sk BW ae 


WO1s="E"5 WH2z="00100"Z% 

WOLSBwOlaclieTIMERCTII£30312312133% 

WO2SSWO2RTL182248421R 1736236812 13% 
END STIMER? 


AGOGO ORCC IG TOR IGE GOR IOI IOK R R IR GIORGIO RK GIO KI I a akoicg 
INTEGER PROCEDURE MATCHCVsA)3% 
VALUE V3 
REAL V3 ARRAY ACO]3% 
COMMENT LOOKS TO SEE IF VALUE V OCCURS IN ARRAY As 
IF 1T DOES RETURNS INDEXe TF NOT RETURNS Of 
JRO ROOK OR aOR OR Ca RIOR GR ROO IORI HK RIG ocak ak ake 
BEGIN INTRGFER NAEeT3% 


LABEL XIT#s% 
NAESsAlOJ3 MATCHIsO;2 


00028300 
00028400 
00028500 
00028600 
00028700 


START OF SEGMENT 


00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029600 
00029700 
00029800 
00029900 


31 LONG 


00030000 
00030100 
00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
00030800 
00030900 
00031000 
00031100 
00031200 


START OF SEGMENT 


00031300 
00031400 
00031500 
00031600 


12 LONG 


00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 


START OF SEGMENT 


00032500 
00032600 


0119 
O119 
0119 
0119 
0119 


0000 
0000 
0003 
0005 
0008 
0010 
0012 
0014 
0016 
0017 
0020 
0026 


eS AHHH HAH AHA AA RH AS 


T O1819 
T O119 
T 0119 
JT O119 
T O119 
T O41149 
T O119 
T O19 
T O149 
T O119 
T O119 
T O119 
T O119 
ok 
T 

T 

T 

T 

s 


4K KOK KO 


0000 
0002 
0005 
0008 


NEXT SEG 


0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 


Aaa aA ss 


Wek ak a ko 


T 0000 
T 0000 


Terr ere ry, 


NEXT SEG 


4 


2 


° 


ee © eee @ eee ee ee ee 


ty 


() 


S 
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Cs oes 


S 


{ 


O 


Q 


FOR Is=}1 STEP 4 UNTIL NAE Do 
- BEGIN 
TF VSACII THEN 
REGIN MATCHt=13; GO X{T END;4% 
ENN LOOP;4 
XITi 
END MATCHES 


BOC OOO ICI ICICI ICIS GICORICCOI GI IG AIG AG IOK Sea deat deak 
PROCEDURE PRINTLINECLINE* WHICH) 3% 

VALUF WHICH$ {NTEGER WHICH#S 

ARRAY LINELOI:3% 
BOC COO OIG III OGIO GIG GIGI OIG xO akc keateie 
REGIN 

SWITCH FILE SWrisPRNTeUPRNT?% 


IF WHICHSUSERPT THEN ULINECTRIZULINECTR#1 ELSE 
LINECTRt=LINECTR+13 
WRITECSWFEWHICH DIV 2]545*LINEL*J)3% 

END PRINTLINES% 


BGO OOOO II IO IG OIC ICICI OIG ISIC SII ACE 
STREAM PROCEDURE BLANKOUTCLINE) 3% 
7h ROO ROR ROO OU ROR IO OR GIGI IOI KR Gi le ica 
BEGIN 

DItsLINEsOSts B LIT" 3 

SItsLINEs DSi=46 WOS3 
END BLANKOUT 3% 


JAGR ORIG OO II IGIGIII GIG IG GIGI OI GIGI IOI IO IGI GOK i aR a aC Heke ak 
STREAM PROCEDURE CLEARCNe ADS 

VALUE N3&% 

COMMENT SET N44 WORDS TO ZERO3 
JRO IC AICO ICR GOOCH IORI GIG IK CNG K OK koe x 
BEGIN 


ASSOC SOCIO IOI IO IOC IC II CII ICICI a I ICaG i ak 
PROCEDURE NEXTPAGECWHICH) 3% 


VALUE WHICH? INTEGER WHICH? 
BROOCH OIG IR IO GIGI IOIIO IO OI III id x ak ak 


00032700 T 
00032800 T 
00032900 T 
00033000 T 
00033100 T 
00033200 T 
00033300 T 

11 LONG» 


00033400 
00033500 
00033600 
00033700 
00033800 


00034000 


START OF SEGMENT 


00034100 
00034200 
00034300 
00034400 


T 
T 

T 

T 

T 

00033900 T 
T 

* 

) 

P 

p 

T 

18 LONGs 


00034500 
00034600 
00034700 
00034800 
00034900 
00035000 
00035100 


AH AA HH 


00035200 
00035300 
00035400 
00035500 
00035600 
00035700 
00035800 
00035900 
00036000 


AAHAaAH as aH 


00036100 
00036200 
00036300 
00036400 


44-44 


0001 
0003 
0003 
0004 
0005 
0008 
0008 
NEXT SEG 


0119 
0119 
0119 
0119 
0119 
0119 
0119 


eT TT eet T: 


0004 
0006 
0008 
0013 
NEXT SEG 


0119 
0119 
0119 
0119 
0120 
0121 
0122 


0122 
0122 
0122 
0122 
0122 
0122 
0123 
0124 
0125 


0125 
0125 
0125 
0125 


2 


6 


é 


tr \ 


CT) 


Oe OC ma © Sm @ a © on @ Oe GUM Oa Gar MY se 


re 1) 


2 


& G -O 6 6. o 6. G6 S 


<6 


BEGIN 
REAL [3% 


SWITCH FILE SWFssPRNT*®UPRNT3% 
FORMAT HF (#X26e"e* B"5500 TIME SHARING SYSTEM LOG "9 


VREPORT *#"sX7e Abe "DAY 
»"PAGFE "sT5)} 


Mes 2CT2e"/*) pL 20X11 


LIST HLCDAYsDATES sDATE2sDATE3» 
IF WHICHSUSERPT THEN UPAGENOtSUPAGENO+1 ELSE 
PAGENOSSPAGENO+1 932 
WRITECSWFEWHICH DIV 2ILPAGE])3% 
WRITECSWFOEWHICH DIV 27(DBLJ»HFeHL)3% 
IF WHICH=USERPT THEN ULINFCTRSS6+NFIDLINES ELSE 
LINECTRIS6+NFIDLINES? 
FOR 1:=0 STEP 4 UNTIL NFIDLINES 
DO PRINTLINECFIDLINELC Lee I ,WHICH)3% 
END NEXTPAGES4 


BR a ORR OR OR eK OK RK OK ROR RR OK kok aK KOK aK aK 
PROCEDURE PUTHEADERCWHICH) 33 

VALUE WHICHs% 

INTEGER WHICH3 ; 
ek RIO aki a aR a OK RR IO IORI GIOI IO IKK OR GR ICIGR kG ROR OK ak ok ak ak kook ak ako 
BEGIN ; 
SWITCH FILE SWEYLFEF=PRNT»UPRNTES 


SWITCH FORMAT SWFi= 


(X57e"U SER JOB SUMMAR Y")p 
CX5o°"U SER DISK SUMMAR Ytyad 
(X55e"U SER SUMMAR ¥"%)3% 


SWITCH FORMAT SWFF:& 


CYUSER™&X4e"PNI"eX5e"PN2O",X5 > 

"LEM aXSe "BOI eA X7 a EOI XZ 
*PST™eX7o"LOT*SX4s"ET/STT 89 XO 

"CORE™ sXLe"TRMNIN" sX2e "ME IDs Xho 

"EID X6e"UNI Ts X4e"T IME), 

CTUSERMs X5Se"MFID se XSe"F IDM X6s 

"GREATN DATE & TIME"+X 4s"LOGOFF TIME%»X925 

"# DESK SEGS*eXSe"TIME USED") 9% 

CNUSERN® X27 o@PSTYSX7HMIOTMOX7 OMET A XB OMCRE DXA 
"TERMINAL + Xt» "CORE/SECS") 34 


NEXTPAGECWHICH)33 

WRITE CSWFILECWHICH DIV 27(0RLIJ>SWEEWHICHI)$ 

WRITECSWFEILECWHICH DIV 2) 7DRLJ+SWEFCWHICHI2#2 
END PUTWEADERS3 | 


8 


io IS 


11 


9 


00036500 T 0425 
00036600 T 0125 

START OF SEGMENT 22k a2 RoR a 
00036700 T 0000 
00036800 T 0004 

START OF SEGMENT ¥k4 48% kw 
00036900 T 0004 
00037000 JT 0004 

i) 23 LONGe NEXT SEG 
00037100 T 0004 
00037200 T 0010 
00037300 T 00144 
00037400 T oo019 
00037500 T 0024 
00037600 P 0028 
00037700 P 0030 
00037800 T 0032 
00037900 T 0032 
00038000 T 0038 

IS 42 LONGs NEXT SEG 
00038100 T 0125 
00038200 T 0425 
00038300 T 01425 
00038400 T 0425 
00038500 T 0125 
00038600 T 0425 
00038700 T 0125 

START OF SEGMENT **%44e #4 e KX 
00038800 T 0004 

START OF SEGMENT *¥x444% 44x 
00038900 T 0004 
00039000 T 0004 
00039100 T 0004 

30 LONGs NEXT SEG 
00039200 T 0004 

START OF SEGMENT sok ee ko Kx 
00039300 T 0004 
00039400 T 0004 
00039500 T 0004 
00039600 T 0004 
00039700 T 0004 
00039800 T 0004 
00039900 T 0004 
000480000 T 0004 
00040100 T 0004 
00040200 T 0004 

IS 74 LONG» NEXT SEG 
00040300 T 0004 
00040400 T 0005 
00040500 T oa009 
00040600 T 0014 

Is 19 LONGe NEXT SEG 


7 
ts) 


7 


9 


10 


11 


9 


2 


Ch: SF. GF 


Cr “Gi 64 


C) 


C) 


GQ Oe 4 


“) 
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BO IOI IGICIO IGG IG GOR IOI III GGIGOR I iO dak ok ak ira ak 


BOOLEAN PROCEDURE NISKREAD; 4 


BBR OOK oe 9 Ok KK OK IK OO RO KRG IK TI GK dk OO I He ok a ake ake de akc 


BEGIN 


LABEL GET*EOFsTHRUE 


GETSREADCDISKe LOeLOGRECL*# ICE QF 32 


IF LOGRECLOI=REALCNOT FALSE) THEN GO TO EOF: 

IF LOGRECELOJ.TYPEF LSS Boy THEN Go GET3 

PTR:=PTRBASES 

IF LOGRECCOJ+TYPEF NEQ DATEMESS THEN GO THRU} 

DO UNTIL SCAN = "C"3 LASTDATES=NUMBERSCAN@YEAR;} 

IF FIRSTDATE=O THEN BEGIN FIRSTDATE#=LASTDATE} 

FIRSTNATES=FIRSTDATE + BEGINTIME DIV 51840003 
REGINTIMEtSBEGINTIME Mop 5184000 END; 

PTR t= PTRBASES % ALLOWING RECORD TO BE SCANNED AGAIN 

GO THRU 


EOFTIF FINQLFIDP=FIDP+1] NE@ O THEN 


BEGIN CLOSECDISK)3 
MFIDSSFIDQEFIDPI32 
FILL DISK WITH MFID3% 
GO TO GET; 

END;&% 

DISKREADS=TRUES 


THRU? 
END DESKREADS 


KABREEALELLREES EEL LALLLZEREBELRELELLELEESLELELYLEE LES LSEEZEELEE AY 
COMMENT <se8$ SECTION = 04 = SWAP REPORTS ssiee3 
BELZARBELELEEBELELEEEEELEASEELYLALELLLELELELL EEL LE LLLEL YALL YL ELEY 
GOOG IGI I GI IG GIGI ICI OI ACK ak ake ae ak 
PROCEDURE HLANA3;4 

ZO GOO IO IGG IGG II SIO GIGI KO a ke ak fe ak ak kok 
REGIN 


FORMAT FIC"THERE WERE "el3e " HALT LOADS")3% 


FORMAT F2C"HALT LOAD TIMES WERE ¢ ")» 


F3ACX2eA3eASrX2e[6)y 
FAC™MEAN TIME BETWEEN HALT LOADSe oe "#A32A5)3 


FORMAT FSC"’TIME PERTOD COVERED WAS FROM ",A3sA5¢% 
XOeT6e* TO "r,A3sA5,X9016)3 


REAL AsBeCeDeol 32 
LABEL, XIT34 


STIMERCBEGINTIME+A2B)3 STIMERCLASTINE + CeD)3% 


00040700 T oOt25 
00040800 T 0125 
00040900 T 0125 
00041000 T 0125 
00041100 T 0425 

START OF SEGMENT *& kk Re 
00041200 T 9000 
00041300 T 0005 
00041400 T 0007 
00041500 T 0009 
00041600 P 0009 
00041610 C 0011 
00041620 c 0018 
00041625 ¢ 0020 
00041630 ¢ 0021 
00041635 c¢ 0023 
00041640 c 0023 
00041700 T 0027 
00041800 T 0029 
00041900 T 0031 
00042000 T 0032 
00042100 T 0036 
00042200 T 0036 
00042300 T 0036 
00042400 T 0037 
00042500 T 0038 

i2 18 43 LONGs NEXT SEG 
00042600 T 0125 
00042700 T 0125 
00042800 T 0125 
00042900 T 0125 
00043000 T 0125 
00043100 T 0125 
00043200 T 0125 
00043300 T 0125 

START OF SEGMENT *#¥ RK RK Ke 

START OF SEGMENT *#¥44e 44 & + 

44 15 8 LONGse NEXT SEG 
00043400 T 0000 

START OF SEGMENT xenxeek eed 
00043500 P 0000 
00043600 T 0000 

15 1S . 26 LONGs NEXT SEG 
00043700 T 90000 

START OF SEGMENT k¥e%##K XH x 
00043800 P 0000 

16 1S 17 LONGs NEXT SEG 
00043900 T 0000 
00044000 T 0000 
00044100 P 0000 
00044200 T 0000 


12 


2 


Oo a Oa oO QO a aA oO *”O O OO Oe. ep 9 On Ie RP Ae AS 


S 


os 


WRITE CPRNT*OF Se Ar Be F IRSTDATEF+YEAR* Ce De LASTDATEFYEARD 3 
WRITECPRNTCOBLIJ oF 1 eHLP 3% 
IF HLP = O THEN GO XIT3% 
WRITECPRNTCOBLIsF2)3% 
FOR yis1 STEP 1 UNTIL HLP DO 
BEGIN COMMENT W/L TIMES; 
STIMERCHLQLT J »A»B)s ; 
WRITECPRNTCOBLJ oF 30A,B,HLDATELII+YEAR)3 
END PRINTING HL, TIMES; 
STIMERCCLASTIME™BEGINTIME+LAPSE)/HLP*A®B)3 
WRITECPRNTCOBLIJsF4*A*B)3% 
XITs 
END HLANA$% 


Sh RE ke a KOR RI a IG RR aii ak aio ok ak ako ak ak ai 
PROCEDURE LINEANA#¢ 

COMMENT PRINTS QUT THE AMOUNTS AND 8 OF TIME 

THAT I LINES WERE IN USE3% 
BOR ICICI OK ORIG IG IO UI i kok aoc # 
BEGIN BOOLEAN FIRST3% 


FORMAT FIC™NO,. OF LINES IN USE TIME TOTAL TIME"); 
FORMAT F2CXi te Tae X4e Ade AS pX3eF8,2)3% 


REAL TelieLors 
REAl, MAXe Te TT3& 
LABEL XIT3% 
WRITECPRNTEDBLI°F1)3% 
FOR I:=NUMLINES STEP "1 UNTIL O DO 
BEGIN Tr*®LINEARRYCII3 
TT2sTT+Ts TF T NEQ O THEN 
IF NOT FIRST THEN BEGIN FIRST#STRUESMAX2=1 ENDS 
END; 
IF TT=O THEN GO TO XIT3% 
FOR [%=0 STEP 4 UNTIL MAX DO 
BEGIN 
STIMERCTI=LINEARRYCI 191212933 
WRITECPRNTCDBLIJ *F orl +ComMLINESs Lie L2s100xCT/TT) 93% 
END; 
XIT3 
ENn LINFANA$% 


PROCEDURE MIXANA$ 


COMMENT PRINTS OUT THE NUMBER OF JOBS IN MIX A LA LINEANAS 


BEGIN BOOLEAN FIRST 


00044300 P 0002 
00044400 T 0022 
00044500 T 0030 
00044600 T 0031 
00044700 T 0034 
00044800 T 0036 
00044900 T 0036 
00045000 P 0037 
00045100 T 0052 
00045200 P 0054 
00045300 T 0058 
00045400 T 0069 
00045500 T 0070 

13 18 74 LONGs NEXT SEG 
00045600 T 0125 
00045700 T 0125 
00045800 T 0425 
00045900 T 0125 
00046000 T 0125 
00046100 T 0125 

START OF SEGMENT kok kd Ok RK dK & 
00046200 T 0Nn00 

START OF SEGMENT «xxeexxe eae 

18 IS 10 LONGs NEXT SEG 
00046300 T 0000 

START OF SEGMENT xe eke Kee He 

19 1S 19 LONGs NEXT SEG 
00046400 T 0000 
00046500 T 0000 
00046600 T 0000 
00046700 P 0000 
00046800 T 0003 
00046890 Cc 0004 
00046900 P 0005 
00047000 T 0007 
00047100 T 0010 
00047200 T 0O0012 
00047300 T 0013 
00047400 T 0015 
00047500 T 0015 
00047600 T 0017 
00047700 T 0031 
00047800 T 0033 
00047900 T 0034 

17 1S 38 LONG» NEXT SEG 
00047904 c 0125 
00047902 c 0125 
00047903 C 0425 


START OF SEGMENT **k 44H KKH 


2 


2 


20 


{ 


Cy 


C) 


O 


X1T; 
ENA 


FORMAT F1iC"NO»s OF JOBS IN MIX TIME &TOTAL TIME")3 
FORMAT F2CX11s14eX4sA3eASeX5eF8e2)$ 


REAL TelLislL2sMaXxsTeTT3 
LABFL XJT3 
WRITE CPRNTFOBLIJeF 125 
FOR ITt=MIXMAX STEP #41 UNTIL O DO 
BEGIN TI=MIXARRYCTI3 
TTs=TT+T3 TF T NEQ O THEN 
IF NOT FIRST THEN BEGIN FIRST:=TRUES MAX$=I1 END? 
END; 
IF TT=0 THEN GO TO XITs 
FOR 1350 STEP 1 UNTIL MaX DO 
BEGIN 
STIMERCTS=MIXARRYCTIeL19L203 
WRITE CPRNTECDBLJ+F 2e Tot tel2e100x(T/TT))3 
END: : 


MIXANAS 


JF CII OIC GCI IOI ZG III OI IGIOR OI IOI KOI ik i i fei k 
PROCEDURE ERRANAS3 


COMMENT LISTS THE NOw OF ERRORS PER PERJPHERAL3 


ZOO IO OIG GIGI IG Oa I KG § 


BEGIN FORMAT FTC™PERTPHERAL DFVICE ERRORS WERE DISTRIBUTED", 


END 


" AS FOLLOWS f,/, "LUN sX4,"UNIT#»X105 "NOE" 32 


FORMAT FCI13eX2eA6eX5e 1 B)3R 


REAL, 13 
NEXTPAGECONSITE)3% 
WRITECPRNTCOBLISFT)3% 

FOR T:1 STEP 1 UNTIL 314 ¢ 


DO YF RTECTI] NE@ O THEN WRITECPRNTCOBLI ere T*1 eUNITECIIJsRTELIID3& 


FRRANA$ 


BEELEALEECE SEER ELELELALLLBAAVLY SY ELE LAU SALL YL KA PH LALA HLA AYY 
COMMENT s3223 SECTION = 05 = ONSITE REPORTER setae 
BEBRBELEEEEEELEALEBLEB ESE BRELE BY LY EEE LE LL EBL EELE EEL ALLEYLYYE 


COMM 


ENT LAYOUT OF THE ONSITE SORT RECORUS3}3 
SCOJ ::= USER ID 
SCi] r= LINE NO, 
SC€2] ::= PROG NAME 1 


00047904 C 0000 

START OF SEGMENT 2k kk & 

21 8 10 LONG» NEXT SEG 
00047905 c 0000 

START OF SEGMENT +k eke 

22 1S 10 LONGs NEXT SEG 
00047908 c 0000 
00047909 ¢ 0000 
00047910 c 0000 
00047912 C 0003 
00047913 C 0004 
00047915 C 0005 
00047916 C 0007 
00047918 c oO0!10 
00047920 c 0012 
00047922 c 0013 
00047924 ¢ 0015 
00047926 C 0015 
00047928 C 0017 
00047930 C 0030 
00047932 ¢ 0032 
00047934 ¢c 0033 

20 1S 37 LONGs NEXT SEG 
00048000 T 0125 
00048100 T 0125 
00048200 T 0425 
00048300 T 0125 
00048400 T 0125 

START OF SEGMENT kk 4 ake 

START OF SEGMENT *& xk tk dK 
00048500 T 0000 

24 18 19 LONGs NEXT SEG 
00048600 T 0000 

START OF SEGMENT 2& 4k 40k KR 

25 1S 8 LONGs NEXT SEG 
00048700 T 0000 
00048800 T 0000 
00048900 T 0000 
00049000 T 0003 
00049100 T 0003 
00049200 T 0022 

23 1S 25 LONGs NEXT SEG 
00049300 T 0425 
00049400 T 0325 
00049500 T 0125 
00049600 T 0125 
00049700 T 0125 
00049800 T 0125 
00049900 T 0125 


Nm 


23 
24 


23 


25 
23 


C) 


Hehe, 


ss, 


MMoore Business Forms, 


OG CO 6 © 6 6 GS Oo iG 6 SG 


ms 


PROG NAME 2 


% $(3] ¢35 
4 $04] ¢35 BpOU TIME 
% Sc5)] tte FOU TYME 
% Sr6] ti= CPU TIME USED 
% Sr7} #t= 7/0 TIME USED 
% S(8] t%= CORE USED 
& S09] t= "NS"ED"s"EQU",ETC, 
COMMENT LAYOUT oF THE FILE STAT SORT RECORD; 
% FCOJ"FC3) 3s3= SC01"S63] 
% FEA) $35 CLOSE STAT TIME 
fale oe, v3 FCSJ"FL9] 3:5 SAME AS LOG RECORD 
COMMENT LAYOUT OF THF TERMINAL LOGGING RECORD; 
% TCO] t= USER TD 
EP ap te ar % TLi] ss= LINE NO 
% Tr2) ti= wLyNE &" 
a Tr3] %3= cee USEN 
% Tr4] ¢3=5 TIME LOGGED ON 


BOK OR ok OR ORR RGGI IGOR TORK OK A GR IOI IO Gi ak ak aka ake akc ak 
STREAM PROCEDURE MAKEFILEDETAILLINECLINEsMFIDsFIDsUNITe TIM)3% 
wee VALUE MFID*F IDs UNIT» TIMs% 
ZOCOR CK OR OR GIG IOI IGOR gg kak R io ok da gk a ak a a ato ako ak ak ago ako sk ake ake ake 
BEGIN 
NI ssLINEsDLsaD [+6030] s=D14353% 
S[T#sLOC MFIns 2CUPSI1#pDSit=7 CHR# UPpII3 & MFIDPFID 
SpyisSr+53 Nytspr+2sOSie=3 CHR % UNIT 
Stes A. a SptaS14+2s Dp taDy +234 
2CDS%=2 CHR? DSt=L ITs") OSt=o CHRIS 
END MAKEFILEDETAILLINES% 


BRO OR IOOR OIC OOO OI III OIG GK GIGI I aii a aC ae 
PROCFOURE FILENETAILCSORTREC)3 

ARRaY SORTRECr(OI:2% 

COMMENT FORMATS THEN FILE RECORD PRINTLINE?3 
FESS PLES ESE SELES SSS SSS SELES SESS Pee SSeS SSC LSS SCS SS SCLC SCO L SL eS SS. eS 7 
BEGIN 

DEFINE S=SORTREC#H?% 


REAL, UNS % 
LABEL XIT} 
IF CLUNt=S£83.03616])=0 THEN GO TO XIT3% 
RTECLUNIJSSRTELLUNI4+S£61.0294:1213% RUN TIME ERRORS 
BLANKOUTCLINE)3 
MAKEFILEDETAILLINECLINEsS£S5]*SL6]+UNITELUNI» 
TIMFRCABS(SL9])))3% 

IF NETOG THEN 
PRINTLINECUTNE ONSITE) 32% 

auceste che XIT?t 

END FILEDETAIL#S 


FBG IO IO IGOR IC IO IGIGCIGIOR IR IGE Sk FIG a HE ak a a ka af kC ak ake ake ak ake age a ak ak 


00050000 
00050100 
00050200 
00050300 
00050400 
00050500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00052300 
00052400 
00052500 
00052600 
00052700 


00052800 
00052900 
00053000 
00053100 
00053200 
00053300 
00053400 


START OF SEGMENT 


26 1S 


00053500 
00053600 
00053700 
00053800 
00053900 
00054000 
00054100 
00054190 
00054200 
00054300 
00054400 


17 LONG 


00054500 


SAHH HAH HAHAH BAA HARA HA is 


T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
C 
T 
T 
T 
8 


T 


0125 
0125 
0125 
0125 
0425 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0125 
0126 
0126 
0128 
0129 
0129 
0131 


0131 
0131 
0131 
0131 
0131 
0131 
0131 


Tere rT. Ty 


0000 
0000 
0000 
0002 
0006 
0007 
0010 
0011 
0011 — 
0013 
0014 


NEXT SEG 


0131 


26 


2 


MY O OA O 


(C) C) C) Ct C) 


Ct) 


O) C) C) C) Cy C) C) CO 


C) 


41 


O 


1 


tAoore Business Forms, Inc sv 


STREAM PROCEDURE MAKEFLEVELLINE CLINE» ASTERISK sLEVEL» 
PST,LOT»ET»COR)3 
VALUF PSTslOT» ET» COR* ASTERISK aL EVELSS 
2 Re oe Ei ake a ak CC 22k oie ote 2 kc ke oR OR ok oo oo Kak a oi KK ke ok ak ak ak ake ok kok ake ake it ake ak ke ek 
BEGIN SyitstOC ASTERISKs DIstsLINERS 
DIt=D14+18? 2CUPDISUPSISDS:=7 CHRIS 
DSte12 LIT" TOTALS acne a 3% 
3CSTs8S1l+2301l:=D1 +234 
2(D§:=2 CHR$ DStSLIT™s")5% 
DS:=2 CHR)34 
Dis=D1+e23 OSes 8 DECIS 
Disspnr7"8sOS:48 FILLS 
END MAKFLEVELLINE $2 


FRR OK A IK a i aR ORR IK A IG KIO ak a i ak ok ak off ak ak ak 
PROCENURE LEVELCWHICH»PSTssOT,ET» CORDS 
VALUE WHICHsPSTreLlOTs»E1 se COR 
INTEGER WHICH 
REAL PST» lOT»ET» COR; 4 
CORI OOK IOI GG OIG IOI UR GOR IOI GR I GOK I a dG sdk ak kak 
BEGIN 
BLANKOUTCLINED$ 
MAKPLEVELLINECLINEs ASTERISKC WHICH] #LEVELARRYCWHICHI» 
TIMEROPSTIsTIMERCTOTI»TINERCET)»,CORIsY 
IF DETOG THEN ; 
PRINTLINECLINE s ONSITE) 33 
END LEVEL3% 


JO OOO IGG GIO GIGI IG IIIG GC GIG IG I AGE IG IOI a ak dedi ae 


PROCEDURE SPLITCI): VALUE [3% 
REAL 138 


GRO OC ROR IOI OGIO OIC IG IO GIO GIGIOK IOI I Ia OK a IOI Oke a ak a ak ak 


BEGIN DEFINE PsGT10#,[0=GT11#,F=GTi2esy% 


PSTQOTALSCI]&SsPSTOTALSLIJ+P3% 

LOTOTALSCI] := IoTOTALSC!] + Tos 

ETOTALSELIU:=ETOTALSIILI+E 3% 

IF 10 THEN OSUSES®1 ELSE REMUSE 32132 
END SPLIT34 


JOR IO OIG OOO GI IOR IGRI OIG IG GI IKI OR GIGI kak a ak a ROK ak ak ak ak ake ake ak 
STREAM PROCEDURE MAKEDETAILLINECLINE»USER,PN1,PN2,LL,BOUT, 

EOUTePSTs [OTsET»COR+HEND) 3% 

VALUE USER+PN1sPN2eLLeBOUT®EQUT»PSTe TOT rE Ts CORPHEND?&% 
JRO CIO IOI III OO IGRI OI OR TOI IORI IOIOI RG ICHE ic ak a ake ak 
BEGIN 

Slt=LOC USER} DItsbLINe3 


27 IS 


00054600 
00054700 
00054800 
00054900 
00055000 
00055400 
00055200 
00055300 
00055400 
00055500 
00055600 
00055700 
00055800 


00055900 
00056000 
00056100 
00056200 
00056300 
00056400 
00056500 
00056606 
00056700 
0005680Q 
00056890 
00056900 
00057000 


00057100 
00057200 
00057300 
00057400 
00057500 


START OF SEGMENT 


00057600 
00057700 
00057800 
00057810 
00057900 


10 LONG 


00058000 
00058100 
00058200 
00058300 
00058400 
00058500 
00058600 


AnH AAs HHS 


AHO AAMAS 


T 
T 
T 
T 
T 
*x 
T 
T 
T 
T 
T 
, 


Asta Hs 


0131 
0131 
0131 
0131 
0131 
0132 
0134 
0135 
0136 
0137 
0138 
01348 
0139 


0139 
0139 
0139 
0439 
0139 
0139 
0139 
0139 
0141 
0142 
0445 
04145 
0147 


0148 
0146 
0148 
0148 
0148 


RRR ROOK 


0000 
0002 
0004 
0006 
0009 
NEXT SEG 


0146 
0148 
0148 
0148 
0148 
0148 
0148 


27 


2 


C5 


Cy 


oe Cy C) 


Ge 2G 1 Se Ae SE A OEE AD 


Cy 


ee 


3CUPSI3 DSt=7 CHR} UPDID3 % USER» PN1ePN2 
SIl:=Sr+63;DSt=2 CHR; DI:eb,+23% LINE NO 
SCSyraSl+23 2CNSis2 CHR HSs=LIT™s")3 DSt=2 CHR3 
DIs=D1+2)3% 
DS:=8 NECs DItspl+23 
UPStspSt=5 cCHR3s 
DpisNpri5s pSts 5 FILLS 

END MAKEDETAILILINEsS 


J ORI ORR OI ICR OR IGI I CIGIGIGIGK I IOI ICR KG aa ae ak ak 
PROCEDURE DETAILCUSER*PNItPN2slieBOUTPEQUT®PST®lOTHETs 
CORsHEND) 3% 
VALUE USER*®PNLePN2eLL > BOUTOEQUT® PST 1OTPET®COR*HEND$ & 
REAL USER»PNisPN2eBOUTPEQOUTePSTeIOT®ET®CORSHENDe LL % 
BR RIO OI OIG OI IG IGIC IGG IOI II HGH de kok de ak 
BEGIN 
INTEGER Y3 


BLANKOUTCLINE) 3% 
MAKEDETAILLINECLINE®sUSER®PN1 »PN2eLL»eTIMERCBOUT MOD 5184000)» 
TIMFRCEOUT MOD 5184000)*TIMERCPST)*+ TIMERCIOT) eTIMERCET)» 
COR»sHEND) 34 
IF TtSMATCHCPN1sCPLRNM)>O THEN COMPILSEI]:=COMPILSEIJ413 

IF DETOG THEN 
PRINTLINECLYNESONSITEDS% 

END DETAILS 


COMMENT LAYOUT oF THE USER MASTER RECORD3% 


y 3 UfO] a: USER 

4 UCL] ¢:= CPU TIME 

% UL2] 3:5 J"o TIME 

% UfC3] ¢:3:* ELAPSED TIME 

% U£4] t3:= CANDE CPU TIME 
% UL5] t= TERMINAL TIME 
% Ufo] $325 CORE 

z Ur? ] $3= pISK SPACE 


BB Re 2 fe ate eR a 2 a aka kK aK KC Ce tc oi nk Se ak le att okt ote te de che ote pe oe 
PROCEDURE REPORTUCUSERs PST, [OTs eT eCET+TT»COR 
VALUE PST»IOTsETs CET» TT»CoR,USERSY 
REAL, PSTeIOTsETeCETs TTsCORPUSERSS 
COMMENT OUTPUTS THE REPORT WITH USER TOALS AS 
THE DETAILS 


BOGOR IOI CIO IGG IG ISI SI IIIS GOI A HOI IIIA II IC i ak 


BEGIN INTEGER T9Jd3% 


LABEL EOF sX1T3Y 

DEF TNE INPUTREADYSEQUIVOMr0y,0) AND NOT MERGEND#3% 
DEFINE M=MERGEYTNPUT#I3 

IF ULINECTR GTR PAGESIZE THEN PUTHEADERCUSERPT)3 
MAKEDETAILLINECULINE*USERs"CURRENT™* "TOTALS or ttats 


RES AE SARA A RAR ARC CI a OK i OE abc age ake ae aks 


00058700 
00058800 
00058900 
00059000 
00059100 
00059200 
00059300 
00059400 


00059500 
00059600 
00059700 
00059800 
00059900 
00060000 
00060100 
00060410 


START OF SEGMENT 


28 1S 


00060200 
00060300 
00060400 
00060500 
00060510 
00060590 
00060600 
00060700 


00060900 
00061000 
00061100 
00061200 
00061300 
00061400 
00061500 
00061600 
00061700 
00061710 
00061800 
00061900 
00062000 
00062100 
00062200 
00062210 
00062300 


START OF SEGMENT 


00062400 
00062500 
00062600 
00062700 
00062800 


A4H4 a aH 


AVAAH FAA AHH HHH HSA 


0148 
0149 
0150 
0152 
0153 
0153 
0154 
0154 


0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 

1 ok OK Ko ok 
0000 
0001 
0004 
0007 
0008 
0014 
001414 
0016 
NEXT SEG 


0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 
0154 


MK ok OR OK eK 2h ae 


0000 
0000 
0000 
00090 
0002 


2b 


2 


29 


Ge oO eo 7@e + 


(\ ‘an 


O O C) @) OQ) ‘a Cc) C) PY 


C) 


©. 


Or 


Or sy © 


2 tae © ae © a © ae © a © en 


O 


ae 


J) 


( 


TIMERCOPST)»*TIMERCTOT) +> TIMERCET) + TIMERCCET)» 00062900 T 0003 

TIMFROTT) DECV CBr T3=(COR/1024 dx CPSTHIOT) )»"” ") 5% 00063000 T 0006 

PRINTLINE CULTNE sUSERPT)3% 00063100 T OO}L1 

BLANKOUTCUL INE) 3% 00063200 T 0013 

IF MERGETOG THEN IF INPUTREADY THEN 00063300 T 0014 

DO BEGIN READCMERGEFILEs8.Me*¥IJICEOFIS WRITECSUMFILEs 8sMC*)) END 00063400 T 0017 

UNTIL COMPARE(C1*USER#M£0])7% 00063500 T 0027 

IF mMERGETOG THEN 00063600 T 0030 

IF EQUIVCUSEReM£O)]) THEN 00063700 T 0030 

BEGIN COMMENT HIT$ 00063800 T 0033 

MAKEDETAILLINECULINEs USER» "MERGE s"TOTALS a aatts 00063900 T 0033 

oats TIMERCMELJ + TIMERCME 2] pe TIMERCME 3) 2 eTIMERCME4])29 00064000 T 0035 

eo __TIMERCME5) ) + DECVC Bede S(ML61/1024)xCME1]+ML2])) >" ")3% 00064100 T 0039 

Seite : 7 “MAKEDETAILLINECULINESUSER® "GRAND “e*TOTALS "“attaxat, 00064208 T 0045 

Cee PRINT ME (dae HMIMERCPSTS=PST+MCLI)sTIMERCLOT#SIOT+ME2))» 00064300 T 0046 

7 TIMERCET#SE THEME 3d) eo TEMERCCETSSCET#ME 41)» 00064400 tT 0050 

Baieis TIMERCTTSsTT+eME 5S) 2 sDECVC Ee seled) eo” "3% 00064500 T 0054 

MrOJts08% 00064600 T 0059 

END3 00064700 T 0061 

WRITECUPRNTEDBLIJ)3% 00064800 T 00614 

IF MERGETOG THEN IF COMPARECt*®MCOJsUSER) AND MLO] NEQ O 00064900 T 0065 

THEN MCO]$#03% 00065000 T 0068 

IF SUMTOG THEN WRITECSUMFILE»s**USER*PSTe®LOTPETs 00065100 T 0071 

CET» TT#1934% 00065200 T 0088 

GO TO XIT3 00065300 T 0095 

FOF SMERGEND?=ETRUESS 00065400 T 0095 

XIT3 00065500 T 0096 

END USERPTE% 00065600 T 0097 
102 LONGs NEXT SEG 

FOO GOOG III IOI OR ORIG IGOR GGG ICI k #Ok a a 00065700 T 0154 

BOOLEAN PROCEDURE OSINCSORTREC)33 00065800 T 0154 

ARRAY SORTRECLO]34 00065900 T 0154 

JOR ORO ORO RIO IGOR GIO ROR IOI ORI IOI IR OR AG IG iC aK ak a ak a 00066000 T 0154 

BEGIN | 00066100 Tf 0154 

Did 5062G SEER WE eRe OER ALG WR RB CAGE WEEN a 00066200 T 0154 

PROCEDURE JOBON(UsP1sP2ebLbsMoT 23% 00066300 T 0154 
START OF SEGMENT *¥4%e 444% 

VALUE UsPiePPrLLeMe TIS 00066400 T 0000 

REA}, UsPtoP2oLLeMe TiS 00066500 T 0000 

COMMENT USES PASSED PARAMETERS TO BUILD MIX TABLE ENTRIES; 00066600 T 0000 

SeTeeCre eee eRe ee MEARE eT Tee eee ee ees ee ee ea ee eee 00066700 T 0000 

BEGIN DEFINE MTSMIXTRL&3 4 00066800 T 0000 
START OF SEGMENT x22 kk # kok x 

MTEMeOJ]ssUs IF LL=O THEN MTEMei]:30 ELSE 00066900 T 0000 

MTCMeLISSNFCVC2rLL) & DECVCSeLLIBLELL»2)) £6218%30]3% 00067000 +t 0006 

MTCMs2]:=P13 MTCM»,3]t=P232 00067100 YT 0014 

MTCMe4]t=T3% 00067200 T 0019 

IF LL NEQ@ O THeN 00067300 T 002) 

LLTRLr bbe 3)]isUs% PUT IN USER CODE 00067400 T 0022 

MEXARRYEMNJS=MTXARRYCMNI4+T? 00067410 C 0025 

MEXARRYEMN&SMN+¢ 1 3=MIXARRYEMNIST3 00067420 C 0027 

END JOBON?4 00067500 T 0030 
31 LONG» NEXT SEG 


() C) () C) C) 0) 


Ce “OS (0G Gc Be Is Se 


C) 


ELE RET Le LURK EEE EET CE EEeT ET een eee ree ere 
PROCEDURE JOBOFF(SeLLeMIX» TIM, HEND) 3% 
VALUE LLoeMIXsTIMsHENDSS 
REAL LLeMIXsTIMPHEND$& 
ARRAY SLO)! 
COMMENT CREATES SORT RECORD FROM PASSED INFO AND 
INFO IN MIXTABLESS 
BEANE TON 84 VS ED 008 AHWR EEO CHEW REDO KOON VO G0 ap Uae aad 
BEGIN 
DEFINE M=MIXTBL#E2 


MOVE COsMEMIXe * J] oSL*I)5% 
ScoSyt=TIMs% FOU TIME 
Se9Jt=sHEND#% HOW JOB ENDEN »MAY BE PSEUDO 
CLEARCO»MEMIXe*])3% CLEAR MIX TABLE ENTRY 
MIXARRYCMNJt=MIXARRYUMNI+TIMS 
MIXARRYCMNS=MNOL]ESMIXARRYEMNI@TIMS 

END JOBOFF3:4 


BS e (awa bUCAAE DOA T ENS CORON Rae 


PROCEDURE LOGOFF CSoLLsOFFT®CET* BOOFHEN 
VALUE Lbs OFFT®CET»BOOsHEND? & 
REAL LLeOFFTeCET»HENDS& 
BOOLEAN BOO3% 
ARRAY Sr0J}3?% 
Beare wearer ere cer eee eer ener rman eee Heme rennaeeeneserecee 
BEGIN 
REAL 136 


Pee ent erent egpeaeone 


Oe 
Ww * 
= = 
Be 


LABEL XIT3% 
SCLII=NECVC2rLL) & DECVCS,LLTBLELL»2]) £6318:30]3% 
SCO} sLUTBLOLL, 07; St2];=" LINE @'3% 


SCS]#="C8E USES SCAJt=LLTBLELL,17% SCSJi=OFFTS SE6)SECET3 


Sco7jts03 SrBlic * "S SCOIISHENDSS 
FOR [#=0¢1»53 DO LLTIBLELL»1)2=03 
LLTRLCLLe27tsLL7TBLELLe214+1%% BUMP SESSION NO, 
IF BOO THEN GO XIT3% 
LINEARRYCNLIS=LINEARRYCNLI+FOFFT3& 
LINEARRYONGs3=NL"1)s=LINEARRYCNLI"OFFT33 

XITs 

END LOGOFF? 


Teer er ce eee ee eee ewe ee eae 
PROCEDURE LOGONCLL*® ONT? WHO) 34% 
VALUE LL»ONT* WHO? 


oC et HR eee eRe Hwan eRe Fee anette ee Per enmeener 


00067600 
00067700 
00067800 
00067900 
00068000 
00068100 
00068200 
00068300 
00068400 
00068500 


START OF SEGMENT 


32 1S: 


00068600 
00068700 
00068800 
00068900 
00068910 
00068920 
00069000 


13 LONG 


00069100 
00069200 
00069300 
00069400 
00069500 
00069600 
00069700 
00069800 
00069900 


START OF SEGMENT 


33 15S 


00070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 


47 LONG 


00071200 
00071300 
00071400 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
oe 
T 
T 
T 
T 
C 
C 
T 
ry 


T 
T 
bf 
T 
T 
T 
T 
T 
T 
ek 
T 
t 
t 
T 
T 
P 
T 
T 
T 
T 
T 
T 
s 


T 
T 
t 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
we Ha OK Aeak 
0000 
0002 
0003 
0005 
0007 
0009 
0012 
NEXT SEG 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
eee sts 
0000 
0000 
0006 
0010 
0016 
0020 
0033 
0037 
0038 
0040 
0043 
0044 
NEXT SEG 


0000 
0000 
0000 


32 


30 


33 


30 


FQ AO Or. GS 


{NV 


cy 


C) 


CY: OF) 


O) 


oe 5 


Mecore Business Forms 


, In 


iat REAL LL>eONT»WHO3% 00071500 T 0000 
PS Daas 3 Fae eH eH HRTF OHH ORE AH HHH OHHH HOOT HERERO PRE ORER HO HORH ORO RRO HORE Oe 00071600 ii 0000 
O | BEGIN LITBLELL»O1%=WHOs LLIBLELL»1}:=0NT3S 00071700 T 0000 
LLTBL(LL»3]%=03 % SO We KNOW HE LOGGED IN 00071800 T 0005 
ieethan 2h. oe — LINFARRYCNLItSLINEARRYENLI+ONT3Y 00071900 T 0007 
‘eo LINEARRYENLSSNL41 1] SLINEARRYCNLIMONT3S 00072000 T 0009 
END LOGON?% 00072100 T 0012 

) 
QO DEFINE K=GT14sS=SORTRECH#3% 00072200 T 0012 
DEFINE W=LOGREC#:% 00072300 T 0012 
| Stent ncaa, oh ae DEFINE I=GT2#¢eM=MIXTBL#33 00072400 T 0012 
5, DEFINE HLTIME = CIF HLP=O THEN BEGINTIME ELSE CHL@CHLPI 000724610 c 0012 
16 +5164000KCHLDATELCHLPI“FIRSTDATE)))#3 00072410 ¢ 0012 
LABEL RD»sONNSOFNe HL» DONESY 00072500 T 0012 
LABEL XXTeX[TsBOUR»sEOURs FILLERS EONS; 00072600 T 0012 
LABEL MRCLEAN+MRAGNsMRSCLEAN »MRSAGNIY 00072700 T 0012 
es ac? ras SWITCH SWL2=RD»BOUR-EOUR»s 00072800 T 0012 
Se RDeRDOeRDeHL sEQUSsFILERs ONN® OFNeRDeRDeRDeRDES 00072900 T 90015 
O SWITCH CLEANSWS=MRCLEAN*MRAGN» MRSCLEAN*®MRSAGNE SZ 00073000 T 0023 
Pe atetee NBs REAL LeLLsPNiePN2eUSERIDSS 00073100 T 0029 
O INTEGER TIMeMIX3 00073200 P 0029 
BOOLEAN B3% 00073300 T 0029 
SiS Ven & COMMENT * * * € & * OSIN STARTS HERE * * * * & & 3} 00073400 T 0029 
O IF cLEANER OR HLING THEN GO CLEANSWIKI]3 00073500 P 0029 
RD: IF DTSKREAD THEN 00073600 T 0033 
APs ereth, she sith BEGIN CLOSECDISK)3 00073700 T 0034 
CLEANER t=TRUES 2 00073800 T 0036 
O GO TO MRCLEANSS% 00073900 T 0037 
Selamat ot, 269 END} 00074000 T 0038 
TIMs=C(L?=LOGRECLO])+TIMEF 3% 00074100 T 0038 
O TIM:=TIM MOD 51840003 00074105 Cc 0040 
BS he ed. 1, LASTIME 3= TIM; 00074110 c 0041 
. MIXsSLeMIXF3; LLssIF LeRLFSO THEN O ELSE L,LINEF3% 00074200 T 0042 
O GO TO SWLEL,TYPEFI:2 00074300 T 0047 
Ph GO TO Ros % TYPE NOT HANDLED HERE BY SWITCH SWhL 00074310 ¢ 0049 
Be BOJUR#COMMENT BOJ RECORD} 00074400 T 0051 
J IF Lbs0 THEN If NOT ONS]TrT0G THEN GO Rp ELSE 00074500 T 0051 
irda heel Ae La . ELSE IF NOT TERMINALTOG THEN GO RD?S 00074600 T 0052 
Cy) IF MmCMIX*#0] NEQ 0 THEN BEGIN 00074610 C 0054 
as MIXARRYEMNIS=MIXARRYCMNI+TIM+LAPSES 00074614 C 0057 
fied, dee, ere 4 MIXARRYEMNGSMNTLISSMIXARRYEMNISCTIM+L APSE) END3 00074612 C 0060 
O DO UNTIL SCAN="/"s PNL;=ACGUM3% PROG NAME 1 00074700 T 0065 
SCANS PN2s=acCUMs% PROG NaMe 2 00074800 T 0069 
SRG nts. IF SCAN NEQ "7" THEN 00074900 T 0072 
O USFRINISIF LL=O THEN "NO*USER” ELSE ACCUM ELSE 00075000 T 0074 
BEGIN SCAN? USFRIDt=SACCUM ENDS% USER TD 00075100 T 0078 
Saisasan oles JOBONCUSERIDsPNi+PN2>LLeMIXeTIM+LAPSE)3¢ 00075200 P 0084 
O LASTIMES=TIM3% 00075300 T 0087 
GO TO RD3% 00075400 T 0088 
oie 0d Oe tas EQURICOMMENT EOJ RECORD; 00075500 T 0090 
+) IF LL=0 THEN IF NOT ONSITETOG THEN GO RD ELSE 00075600 T 0090 
ELSE IF NOT TERMINALTOG THEN GO RD34 00075700 T 009% 
ee ee ae IF FQUIVOMEMIX»0]*0) THEN 00075800 T 0093 
O BEGIN COMMENT NO BOJ* TRY TO SALVAGE DATA ELSEWHERE? % 00075900 T 0096 


O 


C} 


IF LL NEQ 0 THEN 
USERIDI=IF EFQUIVCILLTRBLELL20].,0) THEN "UNKNOWN 
FLSF LLTBLELLs0) FLSF USERID S"UNKNOWN"? g 
nO UNTIL SCANEY/"SPNYESACCUMS SCANS PN2t=AccUM3% 
JOBONCUSERI[ Ds PN1»PN2,lLLeMIXeTIM+LAPSE)3 

END SALVEAGE?Z 

NO UNTIL SCANE", "3% 

Do SCAN UNTI}, LtsACCUM,£62:127="E0" OR 

LEPpst OR LEVsyn;s% 


JOBOFFCSsLLeMIXsTIM+LAPSEsIF L="DS" THEN "DS*ED ™ ELSE ACCUM)3% 


GO TO XIT34 
ONN: COMMENT LOG ON RECORD; 
IF NOTCLINETOG OR TERMINALTOG) THEN GO RD3 
DO UNTIL SCANSNUMBERVS 
If L&s0 THEN GO TO RN#% THRW AWAY SCHED STUFF 
IF LLTBLELbs0] NE@ O THEN 
BEGIN COMMENT NOT LOGEED oFF3 
LOGOFF CSeLL»e TIMtLAPSE*® Qe FALSEs"ES*0ON ")3 
LOGONCLL*® TIM+LAPSE» ACCUM)3 
GO TO IF TERMINALTOG THEN XIT ELSE RD; 
END PSEUDO LOGOFF; 
LOGONCLL*TIM+LAPSE*ACCUM): 
LASTIMELSTIM;% 
GO 7O Rp? 
OFN? COMMENT LOG Orr RECORD; 
TF NOTCLINETOG OR TERMINALTOG) THEN GO RD3% 
DO UNTIL SCANSNUMBERV33 
IF LLTBLILLs20jJe0 THEN LOGONCLL»® TIM*#LAPSE,ACCUM)3 
DO UNTIL SCAN = "C3 
LOGOFF CS»LLeTIM+tLAPSE*6xNUMBERSCAN*®FALSE®"™ >; 
Go To IF TERMINALTOG THEN XIT ELSE RD3S 
HL; HLQCHLP:=HLP+L)s=TIMes% 
HLDATELHLPI;= LASTDATE? 
IF CMN=0) AND CNL=0) THEN GO TO RD3 % DOESN"T NEED CLEANING 
HLING?=TRUE$ GO TO MRCLEAN} 
GO TO Rp; 
FOJS?COMMENT EOQY STAT RECORD; 
IF ,,.L=0 THEN TF NOT ONSITETOG THEN GO RD ELSE 
ELSE TF NOT TERMINALTOG THEN GO RD3% 
MEMIXs6]ssWC1]3%8 CepU TIME 
MOMTXe7Js=WLO)3;% | oO TIME 
MEMIX*s@]s=HL3]5%4 CORE USED 
GO TO RDS 
FILERs COMMENT FILE STAT RECORD;34 
If LL=O THEN Ip NOT ONSITFTOG THEN GO Rp ELSE 
ELSe IF NOT TERMINALTOG THEN GO Rp3& 
IF FOUTYOMEMIX,01,0) THEN GO TO RDs% CANT RECOVER,NO [NFO 
MOVE COME MTX sO} eS5Sf OT IF 
SAV TEMEMIXe 414132 
MOVE CSsHCtdeSlL5]93% 
SC9O1SR*ABSCS(9))3% 
GO TO XIT34 
MRCLEANS 
COMMENT GENERATE PSEUDO LoG@OFFS FOR THOSE USERS STILL ON3 
Wi NOTCTERMINALTOG OR LINE TOG) THEN GO MRSCLEANS% 
S523 [2208 
MRAGN? 


00076000 
00076100 
00076200 
00076300 
00076400 
00076500 
00076600 
00076700 
00076800 
00076900 
00077000 
00077100 
00077200 
00077300 
00077310 
00077400 
00077500 
00077600 
00077700 
00077800 
00077900 
00078000 
00078100 
00078200 
00078300 
00078400 
00078500 
00078600 
00078610 
00078700 
00078800 
00078900 
00078910 
00078920 
00078930 
00079000 
000794100 
00079200 
00079300 
00079400 
00079500 
00079600 
00079700 
00079800 
00079900 
00080000 
00080106 
00080200 
00080300 
00080400 
00080500 
00080600 
00080700 
00080800 
00080900 
00081006 
00081100 
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0096 
0097 
0101 
0106 
04114 
O117 
0117 
0121 
0126 
0128 
0134 
0141 
0141 
0142 
0146 
0147 
0149 
0150 
0154 
0157 
0161 
0161 
0164 
0165 
0168 
0168 
0169 
0173 
0178 
0182 
0186 
0192 
0195 
0197 
0199 
0203 
0203 
0204 
0205 
0207 
0210 
0212 
0215 
0216 
0216 
0217 
0219 
0222 
0225 
0229 
0230 
0232 
0233 
0234 
0234 
0235 
0236 


Cr. > oe 2 I a 


> 


©} {) C) cy Cy 


Cy 


C) 


O 


S) 


Cy 


14127 


FAcore Susiness Forms, Inc sv 
(> 2. 3. WOE Oo 


OO (OC 4D wr Gr Age “Oe GS 


CO 


Verte SS, este Set 


IF pisyT+t GTR NUMLINES THerN GO MRSCLEAN;2 
IF LLUTBLE TsO] NEG O THEN 
BEGIN LOGOFF CSsT>LASTIME+LAPSEsOsFALSE»"ES=OF )3 GO XXT END ELSE 
BEGIN COMMENT HE MAY NOT BE LOGGED IN? 
LETBLETe1,]8$=BEGINTIMEs% ASSUME ON 
IF LLUTBLEL*O]s=LLTBLEIs3] NEQ O THEN 
BEGIN LOGOFF CSsl*LASTIME+LAPSE*OrFALSE*"ESTIME ')3 
COMLINESS®COMLINES+13% 
GO TO XXT34 
END FLSF GO MRaAGN;:& 
ENp LOGON CHECK: 
MRSCLEAN? IF NOT HLING THEN BrayN 
LINEARRY lO} $= INEARRYpO]4LASTYME+LAPSE3 
WHILE WEINEARRYCO1<0 Do LINEARRYLOJ#=LYNEARRY[£0J451840003 END? 
COMMENT GENERATE PSEUDO EouS FOR yOBS STI|,L RUNNINGS 
IF NOTCONSITETOG OR TERMINALTOG) THEN GO DONE?% 
Kisa3sle=o34% 
MRSAGN3? 
IF ¢1:=1+1) GTR MIXMAX THEN GO DONE?% 
IF MCT*0] NEQ 0 THEN 
BEGIN Br=(ME1Ts4) LSS HLUTIME)$ JOBOFFCSLLeTsLASTIME+LAPSEs 
IF B THEN “"HL*ED ” ELSE "INMIX "93 . 
GO TO XXT34 
END PSEUDO FOJ ELSE GO MRSAGN3% 
DONE? tr NOT HLING THEN BEGIN 
MEXARRYLO]S=M7XARRYLO]+LASTIME+LAPSE3 
WHILE MIXARRYLO0]<O DO MyXARRYLO]3sMyPXARRY(0]4+51840003 END3 
Kisyis03% 
IF wOT HLING THEN OSINS=TRUES HLING?=FALSE: 
GO To XXT34% 
XITsLASTIME:sTIM3% 
XXT: 
END OSIN:4 


2k OOO IGOR GOI KR GOI OR OK OIG GK I OR Ok kak 
PROCEDURE OSOUTCNODATA»SORTREGC)3 

VALUE NODATA3Z 

BOOLEAN NODATAS ARRAY SORTRECLO 32 
BRC IO CGI GIG IO IGG IG IG GIOIGI OR OK GIG OIC IOI aR IR ak 
BEGIN 

DEFINE TPSTSGT2#s % ACCUM REPORT CPU TIME 


TLOTHGT3#, % ACCUM REPORT ,"0O TIME 

TET =GT4#, 8 ACCUM REPORT ELAPSED TIME 
TCORSGTS#, % ACCUM REPORT CORECWDS) 
UPST=GT6#, % ACCUM USER CPU TIME 
UlOT=GT7#+ % ACCUM USER [#0 TIME 

VET =GT8#» % ACCUM USER ELAPSED TIME 
UCOR=GT9#» % ACCUM USER CORECWDS) 
SPST=GT10#» % ACCUM SESSION CPU TIME 
S1OTSGT11#» & ACCUM SESSION I@0 TIME 
SET =GT12#» % ACCUM SESSION ELAPSED TIME 
SCOR=GT13#» 8 ACCUM SESSION CORECWDS) 


00081200 
00081300 
00081400 
00081500 
00081600 
00081700 
00081800 
00081908 
00081910 
00082000 
00082100 
00082200 
00082205 
00082210 
00082300 
00082400 
00082500 
00082600 
00082708 
00082800 
00082900 
00083000 
00083100 
00083200 
00083300 


00083316 
00083400 


00083500. 


00083600 
00083700 
00083800 
00083900 


322 LONG 


00084000 
00084100 
00084200 
00084306 
00084400 
00084508 
00084600 


START OF SEGMENT 


00084700 
00084800 
00084900 
00085000 
00085100 
00085200 
00085300 
00085400 
00085500 
00085600 
00085700 
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0237 
0239 
0241 
0249 
0249 
0252 
0256 
0261 
0262 
0265 
0265 
0265 
0266 
0269 
0275 
0275 
0276 
0277 
0278 - 
0280 
0282 
0293 
0295 
0299 
0299 
0300 
0303 
0309 
0310 
0312 
0313 
0314 
0315 
NEXT SEG 


0154 
0154 
0154 
0154 
0154 
0154 
0154 


kK OK 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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O 


END 


OO. © 


‘3S 


O 


PPST=GT14#» % ACCUM PROGRAM CPU TIME 
PLOTSGT15#» % ACCUM PROGRAM I"0 TIME 

PET =GT16#» % ACCUM PROGRAM ELAPSED TIME 
PcOR=GT17#, % ACCUM PROGRAM CORECWDS) 

NU =GT18#, % NO, OF USERS 

NR = GTi#t, 2 REC NO, 

NJ =GT19# &% NOe OF JOBS PROCESSED 


1% 
DEFINE S=SORTRECH#H32% 
DEFINE HSHOLDKEY#33% 
INTEGER PST+lLOTPETSS 
INTEGER COR; 
LABFL DET*FILEDETs THRU: S 
IF NOT NODATA THEN 
BEGIN COMMENT DATA CASE33 
IF CNRt=NR+1)=1 THEN GO TO DET#2 
IF NOT EQUALC4»SCOJ»HOLDKEY) THEN 
BEGIN COMMENT SUMMARIZE LAST PROG DATAS 
LEVEL CPROGRAM»PPSTePIOT#PETePCORD 3% 
SPSTs=SPST+PPST; S1OT:=SIOT+PIOT3 
SETISSET+PET; SCOR?S=SCOR+PCOR} 
CLEARC3*PPST)3% 


IF DETOG THEN BEGIN 
WRITECPRNTEDBLI)3 LINECTRESLINECTR+23 % 


FND LAST PROG ELSE GO NETS 
TF NOT EQUALC2sSE9)]sHOLDKEY) THEN 
BEGIN COMMENT SUMMARIZE LINE DATA3% 


IF $£41,036%12] NEG O THEN TSESSIONS!=TSESSIONS4+13 


LEVELCSESSION»sSPST+SIOTsSET*+SCORI3% 
UPSTs=UPST+SPST3 UlOTsSULOT+SI0T3% 
UCOR?:SUCORt+SCOR; UETSSUETHSET3% 


SPLITCIF HO11.2036:12J5%0 THEN 0 ELSE 1)3% 


CLEARC3+SPST)34 


IF DETOG THEN BEGIN 
WRITECPRNTCOBLI)3 LINECTRISLINECTR+23% 
END 


END LINE SUMMARY ELSe 60 DET33 
IF NOT EQUIVCHE9],SL0]) THEN 
BEGIN COMMENT SUMMARY ZE USER DATA3 
LEVEL CUSER» UPST,UIOT»+UETsUCOR) 3% 
REPORTUCHOLDKEYLO]*UpSTeUlIQOT? 


UET*UCTPUTT*UCOR); & 


TPSTSSTPSTtUPST 3 TIOTSaTIOT+UIOT; 
TETSS=TETHUETZS TCORS=TCOR+UCOR? 

RTT s® RIT+UTTS RCT t= RCTHUCT3S 
UTT := UCT t= O73 

CLEARC3-/UPST); 
OSUSFRSt=O0SUSERS+0SUSE3 OSUSFIs03Y% 


REMUSERS $=REMUSERS+REMUSES REMUSEt=032% 


NUSanUsy 3% 


IF DETOG THEN 


PUTHEADERCONSITE);% 
END USER SUMMARY34& 
DET: COMMENT PREOCESS DETAIL RECORDS4 


IF LINECTR GTR PAGESIZE THEN PUTHEADERCONSITE)3 


IF SIGNCS(£91)5"1 THEN GO FILEDET;% 


00085800 
00085900 
00086000 
00086100 
00086200 
00086300 
00086400 
00086500 
00086600 
00086700 
00086800 
00086900 
00087000 
00087100 
00087200 
00087300 
00087400 
00087500 
00087600 
00087700 
00087800 
00087900 
00087990 
00088000 
00088010 
00068100 
00088200 
00088300 
00088346 
00088400 
00088508 
00088600 
00088700 
00088800 
00088890 
00088900 
00088910 
00089000 
00089100 
00089200 
00089300 
00089400 
00089500 
00089600 
00089700 
00089710 
00089720 
00089800 
00089810 
00089820 
00089900 
00089990 
00090000 
00090100 
00090200 
00090300 
00090400 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00034 
0003 
0005 
0006 
0008 
0010 
0013 
0014 
0014 
0020 
0020 
0020 
0022 
0023 
0026 
0028 
0030 
0033 
0036 
0037 
0038 
0043 
0043 
0043 
0045 
0046 
0047 
0049 
0050 
0052 
0055 
0057 
0059 
0060 
0062 
0064 
0065 
0065 
0066 
0066 
0067 
0069 


iy £4 


OY (y CY Cc) 


Cy 


C) 


O 


tPF SC11.036:12]=0 THEN BEGIN 00090500 0072 

Giese OSUOBS:=0SJOBS+13 00090510 0074 

IF CSL2]=5"LOCNTRL") AND (CSC3I="N1Sk ") THEN 00090520 0075 

PACKETS!sPACKETS44 00090540 0078 

Slots ol fea ae pein Sib END 00090550 0078 

ELSE TUJOBS$=TUJOBS+y 32% 00090600 0079 

NJTENIF1 3% 00090700 0084 

e225. hee 4 DETAILCSCOJsSLeI*ST3]*SClil+SLa4)eSC5J]sPSTs=SL6]> 00090800 0085 

TOTS=SC71*¢ET2 =SC5I1"SC 4) COR: =Sl8)9S8(9]);3 00090900 0089 

COMMENT ACCUM PROG TOTALS:3% 00091000 0094 

ert ops, ahs : ‘ IF S£3) = "Cae USE" THEN. BEGIN 00091100 0094 

UTT&SUTT+ETs UCT&sUCT+PST END 00091110 0095 

ELSE BEGIN 00091120 0098 

pent Sheen seal an Se . PETS=PET+ET3 PPSTs*PPST+PSTS PIOTS=PIOT+I0T3 00091130 0100 

PCOR?=PCOR+COR END 00091200 0103 

MOVE CS» SLO] sHOLDKEY) 33% 00091300 0105 

bee aee se, 4 GO THRU:2 00091400 0106 

FILEDET? 00091500 0107 

FILEDETAIL¢S$)33% 00091600 0108 

spss Se it. ue END DATA CASE ELSE 00091700 0109 

REGIN COMMENT NO DATA CASE33 00091800 0109 

IF SUMTOG THEN LOCKCSUMFILE) 3% 00091900 0109 

poe ae oe LEVEL CPROGRAM*PPSTP®PLOT*PET#PCORD 33 00092000 0112 

IF DETOG THEN 00092090 0114 

WRITECPRNTLNBLI)34 00092100 0114 

Ak eel : SPSTS=SPST+PPSTs SIOTI=SIOT+PI0OT} 00092200 0118 

SETISSET+PETS SCORt=SCOR+PCOR;S 00092300 0121 

TF HEiJ.£36212)] NE@ O THEN TSESSIONS$=TSESSIONS +13 00092310 0123 

oe Sy |S 7 LEVELCSESSJON®SPSTeSrOTsSETs SCOR)3% 00092400 0127 

IF DETOG THEN 00092490 0128 

WRITECPRNTLDBLII7% 00092500 0129 

pant Gkoea nsf ® ELIMINATE A STUPID LINE OF CODE 00092510 0133 

SPLITCIF HEijdef£36:12]=50 THEN 0 ELSE 1934 00092600 0133 

UPSTSSUPST#SPSI3 ULOTISUIOT+HSIOT} 00092700 0137 

sae ot Ai gt SiGe UETSSUET+SET3 UCORS=UCORT+SCOR} 4 00092800 0139 

LEVELCUSER®UPSTPULOTAUET*®UCOR) 3% 00092900 0142 

REPORTUCHOLDKEYCOJ+uUPST*UJOT®UET® 00093000 0143 

Be tametine Seas oe Ss UCT»UTTeUCORD 33 00093100 0145 

IF DETOG THEN 00093190 0146 

WRITECPRNTCOBLJI3% 00093200 0146 

as etl setiaees Taek Bos TPSTt=TPST+UPST3 TlOT#aTLOT#U OT? 00093300 O54 

TETtsTET+UETS TCORtSTCOR+UCORS 00093400 0153 

RITS=RTIT+UTT$ RCTiseRCT+UCT3 00093410 0156 

et Ais A : OSUSERS:sQSUSERS+QOSUSES REMUSERS?: =REMUSERS+REMUSE3 00093420 0156 

NUSSNU+T52 00093500 0161 

LEVELCREPORT#TPST»TIOTs TET*®TCOR)3 00093600 0162 

eicdeei ve, . % CLEARC7*®UPST) 3% 00093700 0164 

END NODATA CASE} 00093800 0165 

THRU: 00093900 0165 

Seah wastes a8 END OSOUTSS 00094000 0165 

6 168 LONGs NEXT SEG 

OQ 

DADS ohns oo OK KOR ROR IOI OI OG ER ORIG GIGIOR AOI IOI I I GOI OIC ak 00094100 T 0454 

O BOOLEAN PROCEDURE QSCOMPCA,B)3% 00094200 T 0154 
O 
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ARRAY A®BLO]} 
AOI OR IOC ICI RIGO RIGO IC i KOK 
OSCOMPt=IF EQUALC4sALO],B£0]) THEN aC4] LE@ Bc4)] 

FLSE COMPARE C4s ALO) »RL0]23% 


ZOCOR OG GOI IOR I IG II IORI III ka Ek 
PROCEDURE OSVALCA)3 

ARRAY AQ ]:% 
JSG ICI GOR OR GIO IGG GR AGI OI III NOK ke akc ak ak 
FILL Atal] WITH 007T1414141414141414900T1414141414141414> 


00T9414441414141414500T1414441414141414, 
00714141414141414143% 


BOO IO OR OGIO GI IOI RIOR GIG sok ak ak 
PROCEDURE OSFINALSY 
HE RO IR RO IOI OI OK ICO IG gO ka Sa KOK a ok ak kok 


BEGIN 
DEF ;NE PST = GT2#, % CPU TIME 
10T = GT3#, 4% =O TYME 
ET = GT4#, % ELAPSED TYME 
NJ = GT{9#s 2 NO, OF JOBS PROCESSED 
NU = GT48#3 & NO, OF USERS 


LABEL AGAIN#% 

REAL, WALLTS % WALL CLOCK TIME 

INTEGER Pi*P2el1+laeE1 rE ose 

BOOLEAN TUTOG:% 

LIST TIMELIST(CPiLep2slisl2,E4 2b 278% 

FORMAT FAC"™NO, OF JOBS PROCESSED WAS ¢: “»ry6eX2e 


"NOs OF USERS WAS ¢ "s16)3% 


FORMAT F2C"TOTAL TIMES™s 106% e"%)23CA3eA50X3))> 


00094300 F 0154 
00094400 T 0154 
00094500 ~ 0154 
00094600 T 0158 
00094700 T 0165 
00094800 T 0165 
00094900 T 0165 
00095000 T 0165 
00095100 T 0165 

START OF SEGMENT *ee4e 8 ea Kx 
00095200 T 0167 
00095300 T 0167 

35 1S 5 LONGs NEXT SEG 
00095400 T 0168 
00095500 T 0168 
00095600 T 0168 
00095700 T 0168 
00095800 T 0168 

START OF SEGMENT x eee ee wx 
00095900 T 0000 
00096000 T 0000 
00096100 T 0000 
00096200 T 0000 
00096300 T 0000 
00096310 C 0000 
00096400 T 0000 
00096500 T 0000 
00096600 T 0000 
00096700 T 0012 

START OF SEGMENT #4x4% eee 4% 
00096800 T oo0l12 

37 18 15 LONGe NEXT SEG 
00096900 Y Q012 


F3C"PERCENTAGESCTIME/ET) ">. % 2 30F8,29X3) 20 
FAC™AVERAGES PER JOByerea”e 30A3#A5eX3))» 
FSC™AVERAGES PER USERa wees SCAZSPAD 2X3) SE 
FORMAT FECX22 oe MCPUMs XB oh] mOMeXGe METH) SZ 
FORMAT F7C™ «& = x & OX ALL JOBS « * * x« atty 3% 


FORMAT FEC" * * * * * REMOTE JOBS & * * & aM DEY 


FORMAT FOC" * * * & * ONSHTE JOBS * * * & KINDGY 


START OF SEGMENT & #42 4k x 
00097000 T oO0%2 
00097100 T 0012 
00097200 T 0042 

38 18 49 LONGs NEXT SEG 
00097300 T 0012 

START OF SEGMENT ok kK Rokk x 

39 IS 9 LONG» NEXT SEG 
00097400 T 0012 

START OF SEGMENT 4x4 K 4k x 

40 18 8 LONGs NEXT SEG 
00097500 T oot2 

START OF SEGMENT eR OK KE 

41 1s 9 LONGs NEXT SEG 
00097600 T 0042 

START OF SEGMENT *****#* Kx 


35 


2 


36 


37 
36 


C) C) C) C) C2 


C) 
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FORMAT FLOC™TOTAL CANDE TIME "eA3sA5e™" TOTAL TERMINAL TIME "a 
A3*#A59" T™S SESSIONS» 152" CONNECT/SESSION"sA32A5)3 


FORMAT FLLC"™COMPILATIONS",15)% FORMAT FI2ZCA2sAS oso [Sef 8,22"); 


FORMAT F143 C'WALI, CLOCK ELAPSED TIME eA3eA5)3 


FORMAT F14 C"PERCENT OF WALLTIME se *3€F8.29X3))3 


WALLTS=LASTIME*@BEGINTIME+LAPSES STIMERCWALLTsE1°F2)3 
WRITECPRNTCDOBLIJeF13S ELE 2)8 
WRITECPRNTIENBLIJ F733 


AGATN# 


WRITECPRNTICDBLIJ oF 1»sNJaNU)3% 
WRITECPRNTICDBLIeF 623% 
STIMERCPSTePit»p2)3 STIMERCIOT# 1491293 
STIMERCET*E19E2)3 
WRITECPRNTCOBLJeF2eTIMELIST)33% 
WRITECPRNTECDBLIJeF 3» 100x(PST/ET) # 100XCIOT/ET)#100)3% 
WRITECPRNTCOBLI 2 F14e100xPST/WALLT» 1L00xIOT/WALLT» LO0xET/WALLT )3 
STIMERCPST/NJsP1sP2)3 STIMERCIOT/NU» [1912)3% 
STIMERCET/NJ oF 1, 62052 
WRITECPRNTCOBLIJsF4+TIMELIST)32% 
STIMERCPST/NUsP{2P2)3 STIMERCIOT/NU®14912)3% 
STIMERCET/NUSE 4 s£2)3% 
WRITECPRNTCOBLIJeFS*TIMELIST)3% 
WRITECPRNTEDBLI9;3 
IF ONSITETOG THEN 
BEGIN COMMENT ONSITE TOTALS; 

WRITE CPRNTCOBLI9F9) 3% 

ONSTTETOG?=FALSE3% 

PSTS=PSTOTALS[0]32 

LOT? =1OTOTALS(LOI:2 

ET t= FTOTALS(LOI]3% 

NUt=OSJOBS3¥ 

NUt=OSUSERS3Y 

GO AGAIN:% 
END ONSITE TOTALS34 
IF TERMINALTOG THEN 
IF NOT TUTOG THEN 
BEGIN COMMENT REMOTE TOTALS3% 

TUTOGI=TRUESS 

WRITECPRNTCOBLIJ9F8) 3% 

PSTt=PSTOTALSL1I3% 

LOTts1O0TOTALS(113% 

ET t= ETOTALS( 1) 32 

NJt=TUJOBS3% 

NUtSREMUSERS$S% 

GO AGAIN3% 
END 


42 IS 9 LONGe NEXT SEG 
00097610 C ool12 

START OF SEGMENT xe exe ek He 
00097620 ¢ 0012 

43 18 23 LONGs NEXT SEG 
00097630 ¢ 0012 

START OF SEGMENT 444 Ek 

44 18 6 LONG, NEXT SEG 

START OF SEGMENT *¥ kok exe eK 

45 15 9 LONGe NEXT SEG 
00097640 C 0012 

START OF SEGMENT #x xx &% 4k x 

46 IS 9 LONGse NEXT SEG 
00097645 c o012 

START OF SEGMENT xxeex4ee 44% 

47 1S 11 LONG» NEXT SEG 
00097690 ¢ 0012 


00097695 ¢ 0016 
00097700 T 0027 
00097800 T 0030 
00097900 T 0031 
00098000 T 0040 
00098100 T 0043 
00098200 T 0045 
00098300 T 0047 
00098400 T 0050 
00098410 c¢ 0065 
00098500 T 0081 
00098600 T 0084 
00098700 T 0086 
00098800 T 0089 
00098900 T 0093 
00099000 T 0095 
00099100 T 0098 
00099200 T 0102 
00099300 T 0102 
00099400 T 0103 
00099500 T 0106 
00099600 T 0106 
00099700 T 0107 
00099800 T 0108 
00099900 T 0109 
00099910 T 0110 
00100000 T 0111 
00100100 T O11%4 
00100200 T 0111 
00100300 T 0112 
00100400 T 0113 
00100500 T 0113 
00100600 T 0114 
00100700 T 0117 
00400800 T 0118 
001400900 T 0119 
00404000 T QO1420 
00101010 T 0121 
00101100 T 04121 
00101200 P 0122 


C- 2 Se “Or 2 ER S02 <G 
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ELSF BEGIN STIMERCRCT»sP15eP2)s STIMERCRITsE1*E2)3 
STIMERCRTIT/TSESSIONS» [151 2)3 ; 


WRITECPRNTCOBLJsFLO0sPisP2r-E12E20¢TSESSIONSs 1112) ENDS 
COMPILS(6)%sCOMPILS(G6J-COMPYLSLBls & DON=T DOUBLE COUNT PASCAL 


MIXANAS 1143503 FOR 12%51 STEP 1 UNTIL CPLRNMEO] DO 
11:=11+COMPILSLI2])3 


WRITECPRNTICDBLJ*Fiteli)s FOR P1s={ STEP 4 UNTIL CPLRNMLO] DO 
WRITECPRNT*®F 12*CPLRNMCPL{I.C6812J°CPLRNMCP1).f18:30]» 


12:=COMPILS(CPLI]>100x12/11)3 


Sees er 
END ar 
w Rite (PNCH, CIS SLATS 7) 


FIRSTDATE, WALLT, pstoTars (od, ETOTACSLO], PSTOTALSE, ETo7ALSOT 


OS JoBS, USS 7 SESSIONS, REMY SERS, 


LELCLEELLRLLEZLALLLAZAELRLELLLAZLELELLLELLELZLLACAVLLELSLA ASS 


COMMENT #23228 SECTION = 06 = DISK LOGGING 8232333 


BELLEZLLEEALLELELAZELERELBRLLELLELLRLELESBELELLAEESELLZLL LS 


COMMENT LAYOUT OF THE DISK LOGGING SORT RECORD: 


% SCO] ::= USER ID 

% SC1] ::= MFIO 

% §{2] ::= FID 

% §€3) $:= CREATION DATE 

% SC4] tt= CREATION TIME 

z $¢5] tt= LOG@*OFF TIMe 

¥ Sc6] t= NO OF DISK SEGS 


ORR ROR OOO RR IOI II ORI GIGI IK a I IG OIG a KC 
BOOLEAN PROCEDURE DLIN(S)s ARRAY SC0)]3 

COMMENT FORMATS THE DISK SORT RECORD? 
BR RO OR ROR RRR OR OOK OR a IR ORO ROK cok 
BEGIN 

DEFINE L=LOGREC#I2Z 


REAL, T3% 

LABEL GETeXIT3% 

GET: 
IF pISKREAD THEN BEGIN DLYNt=TRUES GO X]IT END? 
IF LOGRECLO],TYPEF NES DLOG THEN GO GET3% 
DO UNTIL SCANS" /t3% 
S047#=ACCUMS & MFYLO 
DO UNTIL SCAN="/323 
S£2)25ACCUMS % FID . 
SCANS SLOJ:=ACCUM; 4 USER ID 
SESJ:=LCO],TIMEF; @ LOGOFF TIME 
SCANSSC6]3=NUMBERSCAN? 
DO UNTIL SCANS 
SC3]°=1F ACCUM, L12¢6]=" " THEN (CORACCUML123636]) 
ELSe ACCUM; 
SCAN23 
Sc3z%=rF ACCUM, (i2ioe]=™ © THENCSL3I& ACCUM’ 243626)]) 
ELSE CSE3ZI&8&ACCUMI1{8263427)8% 
SCAn$ SE3)8=5S£3] & ACCUML 3036312132 AND YEAR 
T:=216000xNUMBERSCAN?% HOURS 
T8=T+3600xNUMBERSCAN3 4 MINUTES 
Tt=T+ 60xNUMBERSCAN?% SECONDS 
TeaTt+ NUMBERSCAN3% 1/60 SECONDS 

XITs 


00101210 
00101220 
00101221 
00101222 
00101224 
00101226 
00101230 
00101240 
00101241 
00101300 


189 LONG 


00101400 
00101500 
00101600 
00101700 
00101800 
00101900 
00102000 
00102100 
00102200 
00102300 
004102400 
00102500 
00102600 
00402700 
00102800 
00102900 
00103000 


START OF SEGMENT 


00403100 
00103200 
00103300 
00103400 
00103500 
00103600 
00103700 
00103800 
00103900 
00104000 
00104100 
00104200 
00104300 
00104400 
00104500 
00104600 
00104700 
00104800 
00104900 
00105000 
00105100 
00405200 
00105300 
00105400 


PF ADOAIMAONNMQIOO 


AHA HHH HHH HHH HH At AH HHH A A tt ss st 


0122 
0125 
0127 
0142 
0146 
0151 
0153 
0165 
0175 
0184 
NEXT SEG 


01468 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0168 
0468 
0166 
0168 
ea a KC aC kc akc 
0000 
0000 
0000 
0000 
0002 
0004 
0008 
0009 
0013 
0014 
0018 
0020 
0025 
0028 
0031 
0033 
0037 
0041 
0043 
0048 
0051 
0054 
0057 
0060 


2 


48 


‘° 


Cy 


O 


END DLING 


GOGO IORI ROG R IORI I IOK OK GK HE ak at 
PROCEDURE NVALCA)$ ARRAY ALO]; 

3 OO RRO OR RR RO OR RR ROG ak ak 
FILL Ale) WITH 007941414141441414*0CT141414141414148 


00T141414141414143% 


GF GOR ROR OOO IGOR OR OGIO GIR dG IOI I ik Ok teak 
BOOLEAN PROCEDURE DCOMP(AsB)3 ARRAY A,BLO]3 

JR ORO OR IORI GOI IO OO IOI Kk kkk ak ak 
DCOMP#=COMPAREC3eAf012Bl0))3% 


FRG ROO IR OGG GK kokok 
STREAM PROCEDURE MAKEDISKLEVELCLINE»sASTERISK»LEVELs 
SEGS#MTHS#DAYSe TIM) 33 
VALUE ASTERISK s LEVEL» SEGSeMTHSsDAYS#TIM3Z 
BRO ORR OR OR RR IR RO RGR ORIG GOR RR OK GH OR kk ak aa a 
BEGIN 
LOCAL DAS% 
OTt=LINEs DY] teD[ +3378 
Sts=xLocC ASTERISK:% 
2CUPSIJUPDI3 DS3:=7 CHR)3% 
DSs=12 LIT " TaTAuSeavee"s% 
UPDI3 DA:=sDI3 DSt=8 CHR3% No SEGS 
DI s=D}+334 
Sl:=S1l+63; NSsF2 CHR; DSt=LIT"s"33 MTHS 
STs=ST+63 NSt52 CHRs OSS=LIT"™"3% DAYS 
SItsS1+2s 2CDSs=2cHR? OSsaby Ts"); OSs#2 CHRIZ TIME 
DIt=DAs DSt=6 FYILLSZ 
END MAKEDY{SKLEVEL?Y 


BOO IGOR COORG II GOO kk i Ok ak ied ak 
PROCEDURE DISKLEVELCWHICH*sSEGS*MTHSsDAYSe# TIM) 3% 

VALUE -WHICHsSEGS#MTHS*DAYS#TIM33 

REAL WHICH®SEGS+MTHS*DAYS+TIM$% 
BOO ORO OGIO GIGI OIG OIG GIG GIO Ok kok 
BEGIN 

INTEGER T3 


FORMAT FL CA2sA5)3 


48 1S 


49 IS 


START OF SEGMENT 


START OF SEGMENT 


00105500 T 0061 
66 LONGs NEXT SEG 
00105600 T 0168 
00405700 T 0168 
00105800 Tt 0168 
00105900 T 0168 
START OF SEGMENT ¥%& 4k KF x 
00106000 T 0169 
3 LONG» NEXT SEG 
00406100 T 0170 
00406200 T 0170 
00106300 T 0170 
00106400 T 0170 
00106500 T 0175 
00106600 T 0175 
00106700 T 0175 
00406800 T 0175 
00106900 T 0175 
00107000 T 0475 
00107100 T 0176 
00107200 T 0476 
00107300 T 0176 
00107400 T 0176 
00107500 T oO178 
00107600 T 0179 
00107700 T 0180 
00107800 T 0180 
00107900 T 0181 
00108000 T 0182 
00108100 T 0184 
00108200 T 0485 
00108300 T 0185 
00108400 T 0185 
00108500 T 0185 
00108600 T 0485 
00108700 T 0185 
00108800 T 0185 
00108900 T 0185 
aka OR KO ok 
00108910 ¢ 0000 
OK ROK ROKK KKH 


e 


49 
2 


20 
31 


ee 


co 788 Qs 3G SO eae 3 oO). 9. Or. 3 Or a cor 3G) 


. 


51 1S 
BLANKOUTCLINE)3% 
MAKEDISKLEVELCLINE sASTERISKCWHICH#=2) sLEVELARRYLWHICHI]>» 
DEC VC B+ Ts SSEGS)sNECVC2eTs=sMTHS) »DECVC2sTs=DAYS)»# 
TIMERCTIM)) 33 
IF WHICH = USER THEN 
WRITECPRNTENOJeFLsHOLDKFYLCOJ e L6342d eHOLDKEYLO].£18:301)3 
PRINTLINECLINE® DISKRPT ) 3% 
END DISKLEVELS% 
50 1S 


BORO ORR IOI RICKI IG GI OK IK OK ak ok dodeak 
STREAM PROCEDURE MAKEDISKDETAILCLINE® ArCTIM»LT IMs SEGS» 
MeDeTI3% 
VALUE CTIM*LTIM*SEGS*MeDeT3% 
BOO OR OGIO GIG OO IGOR IOI GR Ra daa a ek 
BEGIN 
LOCAL DA3S 
Dpt=lLyNes Sysaasye 
Z3CUPST# DS#=7 CHRS OL aD142)32 
UPS{s acDStea CHR$ OStsLIT #/)3 DSt=o CHR3 
SftteLoc CTIM3 
2CSTtsSl+2: DissD1+33 2¢DSt=2 CHR; DSt=LI1T*@s")3 OSs=2 CHR)3% 
DIis=O1+53 DAS=DI3 DSt=8 CHRs DI:=D1I+334 
STt=Sl+63;0Ss= 2 CHRe OSt=LIT ss 
SIls:=St+63 DS:=2cHR} 
NStsLIT"aMsg 
SftsS]+2s 2¢0St=2 CHRIDStebyTI)s DSt=o CHRIE 
DIs=DA$3 DSte6 FILLES 
END MAKE DISKDETAIL?:% 


BOR OIC OOO IOC IOI OI IR OI I GEO f ak 
PROCFOURE DISKDETAIL(SORTREC»MTHS*DAYS# TIM) 3% 

VALUE MTHSsDAYSs TIM; 

REAL TIMs INTEGER MTHSsDAYS3% 

ARRAY SORTRECLOj}3% 
FIG OOOO ORG CGI ACI GIORGI ICC AGI GI aC ak ak 
BEGIN perrINe asSORTReC#; 


5 LONGs 
00109000 T 


00109100 
00109200 
00109300 
00109310 
00109320 
00109400 
00109500 


28 LONG 


00109600 
00109700 
00109800 
00109900 
00110000 
00110100 
00110200 
00110300 
00440400 
00110500 
00110600 
00110700 
00110800 
00110900 
00111000 
00111100 
00111200 
00111300 
00111400 


00111500 
00111600 
00111700 
00111800 
00111900 
00112000 
00112100 


START OF SEGMENT 


INTEGER [33 

BLANKOUT CLINE) 3% 

MAKEDISKDETAILCLINE*A*TIMERCAL4] )»>TIMERCALS] )» 

DECVCB*12=AL61]) *DECVC2sMTHS) @DECVC2RDAYS)» 

TIMERCTIM))3% 

IF DETOG THEN 

PRINTLINECLINEs*DISKRPT)3% 

END DISKNETAIL34 
52 1S 


00112200 
00112300 
00112400 
00112500 
00112600 
00112690 
00112700 
00112800 


16 LONG 


T 
T 
T 
C 
C 
T 
T 
s 


AH Ht st st Ht st HS 


SAAN AA He eR HHH 


NEXT SEG 
0000 
0001 
0003 
0009 
0010 
0011 
0024 
0025 

NEXT SEG 


0185 
0185 
0185 
0485 
0185 
0185 
0186 
0186 
0186 
0187 
0189 
0189 
0192 
0193 
0194 
0194 
0195 
0197 
0197 


0197 
0197 
0197 
0197 
0197 
0197 
0197 
ROK OK 
0000 
0000 
0001 
0004 
0009 
0010 
ool! 
0013 
NEXT SEG 


50 


22 


2 


C) 


C) 


O 
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GEORGIE ICICI RIGOR CK AOI ROCIO OK RR aR GIC IG ka ak ak ak ak 00112900 TY 0197 
PROCEDURE NLOUT(B+A)3% 00413000 T 0197 
VALUE Bsg 00413100 T 01497 
BOOLEAN B3 % TRUE IF LAST REC PROCESSEE 00113200 T 0197 
Sei oF es oe ARRAY ALO]3 2 SORTED DISK |,0G RECORD 00113300 T 0197 
JORG RRR OIRO RG ORCI ICO OIG KR OK GOK ak 00113400 T 0197 
BEGIN LABEL DETsTHRU}3 00113500 T 0197 

START OF SEGMENT ak 4K + 53 
LABFL BRK3% 00113600 T 9000 
DEFINE RPTMO = GT6#e% ACCUM REPORT MONTHS 00113700 T 0000 
renee RPTNA «= GT7#s% ACCUM REPORT DAYS 00413800 T 0000 
RPTOT = GT8#e% ACCUM REPORT TIME 00413900 T 0000 
RPTDS = GT9#*e% ACCUM REPORT DISk SEGS 00414000 T 0000 
oat 2 USERMO sGT10#*#% ACCUM USER MONTHS 00114100 T 0000 
USERDA =GT11#*% ACCUM USER DAYS 00114200 T 0000 
USERDT =GT12#*4 ACCUM USER TIME 00114300 T 0000 
a - USERDS =GT13#*% ACCUM USER DISK SEGS 00114400 T 0000 
NF =G714¢e%2 NO, OF FILES PROCESSED 00114500 T 0000 
NU =GT15#54 NO OF USERS 00114600 T 0000 
—— REAL CDATE*CTIME*LDATE*LTIME;% 00114700 T 0000 
INTEGER MTHS*DAYS3 00114800 T 0000 
REAL ZeTi% 00114900 FT 0000 
~ IFCNFS=NF+1) = 1 THEN GO TO DETs2 00415000 T 0000 
IF B THEN GO BRK32 00115100 T 0002 
IF NOT EQUALCLeAlLOJ»+HOLDKEY) THEN 00115200 T 0003 
ee BEGIN SNEW USER OR END OF REPORT 00115300 T 0005 
BRK: 00115400 T 0006 
USERDA*USERDATtUSERDT DIV 51840003 00115500 T 0007 
ts USERDT*USERDT MOpn 5184000; 00115600 T 0008 
USERMO«USERMO+USERDA DrV 343 00415700 T 00140 
USERDAeUSERDA MOD 313 00415800 T 0044 
: IF LINECTR GTR PAGES!ZE THEN PUTHEADERCDISKRPT)3 00115810 ¢ 0013 
DISKLEVELCUSER» USERDS*USERMO»USERDAr USERDT)33% 00115900 T 0015 
RPTMOt=RPTMOFUSERMOS RPTDASFRPTDA+USERDASS 00116000 T 0016 
BS RPTOTt=RPTOT+USERDT$ RPTDS:=RPTDS+USERDS3% 00116100 T 0019 
CLEARC3*USERM0)32 00116200 T 0021 
IF NOT B THEN 00116300 T 0022 
: REGIN NUs=NUtts GO DET ENDS 00116400 P 0023 
END USER TOTAL FLSE GO TO DET3& 00116500 7 0027 
COMMENT END OF REPORTS 00116600 T 0027 
eee RPTHAteRPTDAtRPTNT DIV 51840003% ‘ 00116700 T 0027 
RPTpTi=RPTOT MOD 51840003¢% 00116800 T 0028 
RPTMOt=SRPIMO+RPTINA DIV 343% 00116900 T 0030 
RPFDAt=RPIDA MOD 31434 2 00117000 T 0031 
DISKLEVELCREPORT*RPTDS»+RPTMO*RPTDA®RPTDT ) 3% 00117100 T 0033 
GO THRU3S 00117200 T 0034 
pone DETSCDATEs=A[3]3 00117300 T 0037 
LDATES=MFIN & CDATE €C30%30%1213% 00117400 T 0038 
IF LTUMESSAC5] LSS cCTIMESs2AL4] THEN Z3=13% 00117500 T 0039 
ee ee IF LINECTR GTR PAGESIZE THEN PUTHEADERCDISKRPT)3% 00117600 P 0043 
DISKDETAILCAs 00117700 T 0045 
MTHS#sOCVCLDATE +2) "0CVCCDATES 2)» 00117800 T 0046 
petit Bate DAYS&tsOCVCLDATEs 4 WOCVCCDATES 4), 00417900 T 0050 
Tis_TIME+Zx5184000"CTIME) 3% 00118000 T 0053 
USERMO?SUSERMO+MTHS3 USERDASSUSERDATDAYS3 00118100 T 0056 
ey Se nc USERDT:=USERDT+T}3 USERDS:sUSERDS+AL 6154 00118200 T 0058 
HOLDKEYCOI:=AL0I323 00118300 T 0061 


Or 20). “Gi > 3G) 


e 


Oo OC © 
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O 


> SO --Ge -e S@) 


Oo oCe: dQ © 


THRUS 
ENN DLOUT; 


Fi A FH A OR KH OR aK OK ORR RR kok da OK 


PROCEDURE DLFINAL3 | 
FO A eg ORR OO OR ORO OR IO IOI OR dk a aK i ok 


BEGIN 


FORMAT F ("THERE WERE "sI18e" FILES "o/s 


"OCCUPYING "s19e" DISK SEGMENTS") 33 


FORMAT FBC ™NO, 


OF USERS 


PROCESSED WASE*p1[Be/5 


WAVE, DISK SPACE PER USER 39 18)3% 


WRITECPRNICDBLIJeFeGTig=192QTg)3 
WRITE CPRNTECDBLJ*FB*Gl1i5*GT9/GT15) 3% 


END DLFINAL3:S 


LELELEAFTAARTAKLYRZSLSLELELABFLLALLLSLRLELELVLLZAALALZAZLRF 
COMMENT t2283 SECTION ™ O7 = PARAMETER PROCESSING #33333 

SESE SLSRSSSSSESSVIC US SE SESE SL SL ESS SSS ESIL ES SSSSESESESSSERTE TS 
COMMENT PARAMETERS AREX} 


v4 OPTN 4 = "0S" " ONSITE REPORT 

% OPTN 2 = "TUT ~ TERMINAL USER REPORT 

% OPTN 3 7 "DL" = DISK LOGGIN REPORT 

% OPTN 4 * “HL ™" H/L ANALYSIS 

2 OPTN 5 = "LINE™ = LINE ANALYSIS 

% OPTN 6 ™ "FRR = ERROR ANALYSIS 

% OPTN 7 ™ "MERGE"™ MeRoEe INPUT 

% OPTN 8 = "SUM = OUTPUT SUMMARY RECORD ON pySK 
% OPTN 9 «= "DET! = PRINT GRUBBY DETAILS 


TOC OGIO IOI GR IOI IG IO OIC IG ICI ak 
PROCEDURE PROCESSPARAMS3& 
BRO RO COO IG IG IOI IG IG III IG IOI Ia OIG aK 
BEGIN 

FORMAT F1iC"’PARAMETERS")» 


F2C"™[NV PARAMETERCS) .eeTRY AGAIN); 


INTEGER JoJ3 
REAL P33 
ARRAY ALLtMAXPARAMS]33% 
LIST PARALISTCFOR J:= 1 STEP 1 UNTIL MAXPARAMS DO ACJ1)3 
LABEL GET} 

GETSIF NOT COMBOO THEN WRITECTWXESTOPJ]eF123% 
REANCTWXe//ePARALISTIE Jta03Z 


53 1S 


START OF SEGMENT 
START OF SEGMENT 


25 «1S 


56 IS 


54 1S 


START OF SEGMENT 
START OF SEGMENT 


38 IS 


00118400 T 0063 
00118500 T 0063 
68 LONGe NEXT SEG 
00118600 T 0197 
00118700 T 0497 
00118800 T 0197 
00418900 T 0197 
00419000 T 0197 
eK KK 
SEK a IK 
00119100 T 0000 
15 LONGs NEXT SEG 
00119200 fT 0000 
START OF SEGMENT #2 x8 ee ed #& 
001449300 T 0000 
16 LONGs NEXT SEG 
00119400 T 09000 
00119500 T 0010 
00119600 T 0021 
22 LONGs NEXT SEG 
00119700 T 0197 
00119800 T 0197 
00119900 T 0197 
001420000 T 0197 
00120100 T 0197 
00120200 T 0197 
00120300 T 0197 
00120400 T 0197 
00120500 T 0197 
00120600 T 0197 
00120700 TY 0197 
00120800 T 0197 
00420810 C 0197 
00120900 T 0197 
00121000 T 0197 
00121100 T 0197 
00121200 T 0197 
00121300 T 0197 
eK KK Kk kk 
Ko Kk RO KK 
00121400 T 0000 
13 LONGs NEXT SEG 
00121500 T 0000 
00121600 T 0000 
00121700 T 0000 
00121800 T 0o0001 
00121900 T 0012 
00122000 T 0012 
00122100 T 0017 


54 
55 


of 
56 


af 


{) 


> 


C) 


ny 


WHILE P#FsALJt=u¢i] NEQ@ O pox 
BEGIN COMMENT PROCESS PARAMETER LIST3 
IF ITtsMATCHCP*ePARAWOS) = O THEN 
BEGIN COMMENT INVALID PARANETERS 
WRITECTWXsF2)3 
GO GET3 
END ELSE CASE cI™1) OF 
BEGIN COMMENT SET TQGS ACCORDING TO PARAMETER: 
ONSITETOG# =I RUE33 
TERMINALIOGIL=TRYE3% 
DISKTOGISTRUESZS 
HLTOGS=TRUES& 
LINETOGS=TRUE3S 
ERRTOGI*STRUES& 
MERGE TOG#=TRUE3 
SUMTOG?iasTRUE3 
NETOG $= TRUE} 
END TOG SETTING? 


END PROCESSING OF PARAMETER LIST} 


END PROCESSPARAMS33& 


RO OR ORO ROKR RRR OR ROOK IOI kok oka kok ak 
PROCEDURE GETMERGE?3 

COMMENT ASKS FOR AND SETS UP MERGE FILE ID3 
RR OK RK OK OK KORO ak kK RK OK RK kak ek ak kook de ak ok ak ake 
BEGIN 

FORMAT FIC'’MERGE FILE MFI Deg e™I3% 


IF NOT cOMBOO THEN 
WRITECTNXCSTOP] oFTI3% 
READCTWXs/»MERGEID) #3 
FILL MERGEFILE WITH MERGEIDs"LOG"ss 

END GETMERGES3 


BO OOOO OO OR ROR OOO IGOR OGIO GOI I IG kik sea 
REAL PROCEDURE FINDLOGS32 
BRR ORR RICO IORI IOI ICICI IGG OK GI a ak Oia a ak 
BEGIN 

REAL teJ3% 


FORMAT FNC™LOG MFIDCS),5,%I3% 


LABEL AGAINs INS3% 
IF NOT COMBOO THEN 


START OF SEGMENT 
59 IS 


27 IS 


START OF SEGMENT 
START OF SEGMENT 


61 1S 


60 IS 


START OF SEGMENT 


START OF SEGMENT 


63 IS 


00422200 T 0021 
00122300 T 0025 
00122400 T 0025 
00122500 T 0028 
00122600 T 0028 
00122700 T 0031 
00122800 T 0032 
00122900 T 0033 
00123000 T 0033 
00123100 T 0035 
00123200 T 0036 
00123300 T 0037 
00123400 T 0036 
00123500 T 0040 
00423600 T 0041 
00123700 T 0042 
00123710 Cc 0043 
00123800 T 0045 
Pere ree ee S 
10 LONGe NEXT SEG 
00123900 T Oo45 
004124000 T 0046 
51 LONGs NEXT SEG 
00124100 T 0197 
00124200 T O197 
00124300 T 0197 
00124400 T 0197 
0041324500 T 0197 
00124600 T 0197 
ROOK 
OOK RO RK 
6 LONGs NEXT SEG 
00124610 T 0000 
00124700 T 0000 
007124800 T 0004 
00124900 T 0011 
00125000 T 0015 
17 LONGs NEXT SEG 
00125100 T 0197 
00125200 T 0197 
00125300 T 0197 
00125400 T 0197 
00125500 T 0197 
Perrrr TT ery 
00125600 T 0000 
OK OK OK OR 
6 LONGe NEXT SEG 
00125700 T 0000 
00125710 T 0000 


59 
57 


2 


62 


63 
62 


e- 3s. A eG ee I 


Ca 


pai) 
" 


WRITECTWXCSTOPJ] FN) 3% 
REANCTWXENOJ)3% 
PTR:=GETABSADDR(TWX(0))3% 
AGAINS 
WHILE SCAN=NUMBERY pO 
BEGIN COMMENT MAINTAIN FILE QUEUE IN ASC ORDER} 
IF FIDP=0 THEN GO TO INS#% 
FOR I%s0O STEP 4 UNTIL FIDP#4 
Do IF ACCUM LSS FID@EI] THEN 
BEGIN COMMENT MOVE Em UP? 
FOR JssF IOP STEP =1 UNTIL I 
NO FIPQCY+1): SF NQlJ); 
GO INS3% 
ENDS 
INS: FIDPtSrIpP+13 FIDQCITt=AccuMss% 
END FYLE QUEUE MAINTENANCE3Y 
IF RESULT NE@ GPMK THEN Go TO AGAIN? 
FINDLOG?=FIDQCOJ3% 
END FINDLOG3;2 


FESS ASS SCL SS SES SSS SSS ES SESS Se SPSS ee Se Se CLS SSCL SSCL SCL CL SS eS eT 
PROCEDURE GETWORKS% 
OOOO GIG ROI GK CK 
BEGIN 

LABEL AGAIN:& 


REAL yoT3% 

INTEGER NFB 
TEE TOR TOE CCC CRE EER EEUU SOR ER eee eee eT een er ae 
STREAM PROCEDURE MAKEFIDLINECNPFLOSs TQOG*MERG*® ARRYD3% 

VALUE MERG*# Ne TOG3% 
TERT ECORE OTE CC COLE Cee eS ee ee ee oe eee ne ae ene 
BEGIN DIs=ARRYS SIsFIDS3% 

DS:=19 LIT"FILES: CURRENTeen 3 

NCUPSISUPDI3; DS:=7 CHR; DSs=2 LIT s "); 
TOGCDItSARRY; DI t=pl+6334% 

DIseN1+473-S1s=LOc MERGsS 

DSt=8 LIT"MERGE +e" DSt#WOS)3% 
END MAKr FIDLINES3 


AGAIN: 
IF mMFIDtsFINDLOG NEQ O THEN 
BEGIN FILL DISK WITH MFIDs "L0G "3 
READCDISKENOJ#10*°LOGRECE*1)3% 


LINEARRYCOJs:SNIXARRYCLOJsS"BEGINTIME s=LOGRECLO]+TIMEF3 


PROCESSPARAMS3% 

IF MERGETOG THEN GETMERGE32% 
NFIDLINES3=FIDP DIV 9 + 13% 

FOR [330 STEP 1 UNTIL NFIDLINES 
DO BLANKOUTCFIDLINEL ys ¥*])3% 


62 IS 


00125800 
00125900 
00126000 
00126100 
00126200 
00126300 
00126400 
00126500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 


38 LONG 


00127700 
00127800 
00127900 
00128000 
00128100 


START OF SEGMENT 


00428200 
00128300 
00128400 
00128500 
00128600 
00128700 
00128800 
00128900 
00129000 
00129100 
00129200 
00129300 
00129400 


00429500 
00129600 
00129700 
00129800 
00129900 
00130000 
00130100 
00130200 
00130300 
00130400 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 


AAA HAA HAHA RAHA 


ee ee ee ee ee ee oe 


0000 
0004 
0008 
0012 
0013 
0016 
0016 
0017 
0020 
0022 
0023 
0023 
0028 
0028 
0029 
0032 
0033 
0034 
0035 

NEXT SEG 


0197 
0197 
0197 
0197 
0197 


Peer errr yr 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0005 
0007 
0007 
0009 


0009 
0010 
0011 
0015 
0020 
0023 
0024 
0025 
0027 
0027 


64 


(i 


() 


() 


Cr - 40. «a 


FOR ~is0 STEP 1 UNTIL NFIDLINES=2 

NO BEGIN 
MAKEFIDLINEC9sFIDQOCTI+OsOsFIDLINEL I »*1)3% 
Ts=T+93% 

END 3% 

MAKEFIDLINECNS=FIDP MOD 10*FIDQLTJ»>MERGETOG»MERGEID» 

FIDLINECNFIDLINES*1ex1)34 

FIDP:=0332 

END ELSE GO AGAIN;4 
END GETWORK3;2% 


EEERELELAZLARAZALHLELABLLLRLALLY AY LAA YAAK LALLY LL EL LULU Y LY YY VY A eee ey ey ey ey 
COMMENT segess SECTION " 08 ™ INITIALIZE*OUTER BLOCK stest3 
LRELEEZLALLALZALLALLLSLSLHLAALAAX AL ALE LASS LLL LL LLL ELLY ALL ALL ALAA GAYE 
ZCI IOI ORO IGG IGG OCIS IG IG kek 
PROCEDURE INITIALIZE33 
ZORRO RIGO IGG IG IOI IGIIOI ORIG GIGIG IOI GIGI AGG IG I. dC aC keke 
BEGIN 

DEFINE Y=DATE3#sD=sDATED#»M=DATEL #3 


INTEGER He PsQ3% 
REAL, 13% 

ARRAY AlLO86]32 
LABEL OWT34 
FILL AC*] WITH ™ SUN's 
" MON» 

"  TUES"» 

"WENNES's 

Lid THURS» 

Lal FRI» 

" SaATUR'$ 


Yt=xTIMECO)3¢ 

D#Y¥, £3036 )x1004+Y, £3616 1x104Y,749%6)3 
YRSVeCiSt6Ix10+V eL2G4% 6) 3 BSAVE 
Tse 3% 
FOR Hi=31°IF Y MOD 4 =O THEN 29 ELSE 28°3193093128 
302#31*31930931%30%31 ; 
DO IF D LEQ COAYSINE  ss1414)]35H) THEN GO OWT ELSE 
BEGIN D&t=D"H3 Ms=M+]1 ENDS 

OWTSIF M LSS 2 THEN BEGIN Q¢=M4113 PeeY™1 END ELSE 
BEGIN Qt=M"13 Ptay ENDZS 
MtaM4413% 
DAY#=APCCQX26"2) DIV 10404P4+P,£36210)41) MOD 733% 
FILL UNITE*] WITH "MMTATSIMTBM es *MT CIs tMTDit, 


"MTEMS MTF ™ s *MTHt a MT Ue MTK Hs PMTL te PIM TMI, 
"MTP™s9MTP Te ™MTR™ se MIS ao MUTT s *DRAMe MOR BI, 
"DKA" e"DKB"s"LPAVa"LPBMe"CPatetcRatattcrpi, 
"SPO"TS"PPA™s"PRA" Ss "PPB Ys "PRE Ma "HC ats 


FILL ASTERISKC*IJ WITH " *, 


64 1S 


00130500 
00430600 
00130700 
00130800 
00130900 
00131000 
00131100 
00131200 
00131300 
00131400 


48 LONG 


00131500 
00131600 
00131700 
00131800 
00131900 
00132000 
00132100 
00432200 


START OF SEGMENT 


00132300 
00132400 
00132500 
00132600 
00133000 


START OF SEGMENT 


66 1S 


00133100 
00133200 
00133300 
00133400 
00133500 
00133600 


7 LONG 


00133700 
00133800 
00133900 
00134000 
00134100 
00134200 
00134300 
00134400 
00134500 
00434600 
00134700 
00134800 
00134900 


START OF SEGMENT 


67 1S 


00135000 
00135100 
00135200 
00135300 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
, 


AA HMA ARH RH 


AA HA kK AHHH 


31 LONG» 


00135400 


T 


0032 
0035 
0036 
0039 
0040 
0041 
0043 
0045 
0045 
0045 


NEXT SEG 


01497 
o0197 
0197 
0197 
0197 
0197 
0197 
0497 
ai ake Seo a AC a a ak 
0000 
0000 
0000 
0001 
0001 
2k a a i aK 
0003 
0003 
0003 
0003 
0003 
0003 
NEXT SEG 
0003 
0004 
0009 
oo11 
0012 
0025 
0037 
0042 
0046 
0049 
0052 
0053 
0059 


Pe Se fe es 


0060 
0060 
0060 
0060 
NEXT SEG 
0060 


2 


65 


66 


65 


67 


65 


C) oO Cc?) 


C) C) 


_~ 


() 


oe. OP ae AO I 2) 


Ce a Soe Os 


" eau, tt *KeRTE, It KEN EY 
Flut LEVELARRYDL*] WITH "PROGRAM". 
"SESSTON's "USER "s"REPORT "3% 


FILL ONOFFARRYC*) WITH "ON LINE “s"OFF LINE™32 


FILL PARAWDSE*)] WITH MAXPARAMs "OSs "TUMs "DLs 


THLE, HLINE "CRA YMERGE HM SUMM, MOE THY 


FILL CPLRNMC*] WITH 9o"BASIC .ALGOL ","COBOL s"FORTRAN", 


"TSPOL "s"XALGOL *s"COBOLE8™*s "PASCAL *e"ESPOL 


FOR Hi=1 STEP 1 UNTIL CPLRNMECOJ DO COMPILSCHI3=0;3 
FOR Hi= 0 STEP 1 UNTIL NUMLINE DO LINEARRYCH1]:=0; 
FOR HO STEP 1 UNTIL MIXMAX DO MIXARRYCHI:=03 


START OF SEGMENT *%#* eH EX 


001435500 T 0062 

68 IS 4 LONGs NEXT SEG 
00135600 T 0062 

START OF SEGMENT ok ok ok dae ae kk 
00135700 T 0064 

69 1S 4 LONGe NEXT SEG 
00135800 T 0064 

START OF SEGMENT *%x 8x4 #2 & 

70 IS 2 LONGe NEXT SEG 
00135900 T 0066 


START OF SEGMENT #2 ke eK 
00136000 P 0067 

71 18 10 LONGs NEXT SEG 
00136010 C 0067 

START OF SEGMENT *& #44 xk & x 
00136020 C 0069 

72 1S 10 LONGe NEXT SEG 
0013603089 C 0069 


BLANKOUTCULINE 3% 
ENN INITIALIZESS 


BRR ORR RR OIG RR AO ROR GIR OI GOK Ok 
COMMENT OUTER BLOCK; 
BRR RO IOI RIG IG OR ORG RII GI a IK ok ac ac 
INITIALIZES 
GETWORK34 
PTRBASE %:= GETABSADOR(LOGRECG[1])3 
IF TERMINALTOG OR ONSITETOG OR SUMTOG THEN 
BEGIN COMMENT REMOTE AND/OR LOCAL REPORTS; % 
2 DELETF A CARD 


IF 


PUTHEADERCUSERPT)3 

DETOG THEN 

1F TERMINALTOG OR ONS|JTETOG THEN PUTHEADER(ONS]ITE) 3% 
SORTCOSOUT? OSIN# 02 OSVAL,* OSCOMP* OSRECS1 #4000932 
NEXTPAGECONSITE)$ OSFINALSS 

HLANA? HLTOG?=FALSE3S 

ERRANA$’ ERRTOG!*5FALSESS 

IF TERMINALTOG OR LINETOG THEN 

BEGIN LINEANAS LINETOG?:=FALSE END? 


END REMOTE LOCAL REPORTS3% 
IF nJSKTOG THEN 
BEGIN COMMENT DISK LOGGING REPORT; 


MFIDI=FIDQCUFIDPH=0I)3% 

FILL OYSK WITH MFID3g 

CLEARCI2# GT6I3% 

PAGENOtSLINECTRES03% 
PUTHEADERCDISKRPT)3% 
SORTCDLOUTSDLIN»sOsDVALeDCOMP272e¢4000)3% 
NEXTPAGECDISKRPT)3 DLFINALSS 


END DISK LOGGING?2 


00136040 c 0075 
00136050 c 006860 
00136100 T 0085 
00136200 T 0086 
65 1S 92 LONGs, NEXT SEG 
00136300 T 0197 
00136400 T 0197 
00136500 T 0197 
00136600 [T 0197 
00136700 T 0198 
00136710 c 0199 
00136800 T 0201 
00136900 T 0202 
00137000 P 0202 
00137100 P 0202 
00437190 c¢ 0203 
00437200 T 0203 
00137300 T 0206 
00137400 T 0226 
00137500 T 0227 
00137600 T 0229 
00137700 T 0230 
00137800 T 0231 
00137900 T 0232 
00138000 T 0232 
00138100 T 0233 
00138200 T 0233 
00138300 T 0235 
00138400 T 0239 
00138500 T 0240 
00138600 T 0241 
00438700 T 0242 
00138800 T 0262 
00138900 T 0263 


66 
65 
69 
65 


70 
65 


rs 
69 
72 


65 


() 


Oy 


C) 


C) 


C) 


C) 


Veit 


OC) 


sv 


core Business 


LA 


oO 


Forms, Inc 


© 


OQ 


IF HLTOG OR LINETOG OR ERRTOG THEN % 

BEGIN CLEANER?=STRUE3 WHILE NOTCOSINCOUMMY)) DO$ ENDS 

IF whTOG THEN HLANA$3 

IF LINETOG THEN LINEANAZS 

IF ERRTOG THEN ERRANA3S% 

END, % OF PROGRAM 
2 18 
1 1S 
; : 83 1S 
NUMBER OF ERRORS DETECTED = 0, COMPILATION TIME = 1035 SECONDS, 


PRT SIZE = 2383 TOTAL SEGMENT SIZE = 2612 WoRDS; DISK SIZE = 145 SEGS} NOe PGMe SEGS = 83 
ESTIMATED CORE STORAGE REQUIRED = 12232 WORDS, 


ESTIMATED AUXILIARY MEMORY REQUIRED = O WORDS. 


NUMBER OF CARD@IMAGES PROCESSED = 1529, 


LABEL  OOQO000000LINE OO1770697COMPILE LOGAN/DISK TSPOL LIBRARY 


00139000 
00139100 
00139200 
00139300 
00139400 
00139500 


0263 
0264 
0270 
0271 
0272 
0273 


AAA DH 


277 LONGe NEXT 
2 LONGs NEXT 
69 LONGe NEXT 


TSPOL 


SEG 
SEG 
SEG 


/LOGAN 


0 


. C) 
Jf 


O 


| 


